Program Pascal untuk membuat tampilan angka :
1
22
333
4444
55555
Uses crt;
var n,i,j : integer;
begin
clrscr;
write ('masukan batas bilangan :');
readln (n);
For i:=1 to n do
begin
for j:=1 to i do
write (i);
readln;
end;
begin
i:= i -1 to j do
write ( );
readln;
end;
end.
