Looping Bertingkat Menggunakan For do pada Pascal

Coding Looping bertingkat
PROGRAM LOOP;
uses crt;
var a,b,c : integer;
begin
clrscr;
for a:= 1 to 5 do
begin
for b:= 1 to a do
begin
write (b);
end;
write;
readln;
end;
end.


Outputnya adalah

1
12
123
1234
12345