For Do

program for_do;
uses wincrt;
var i,j,n:integer;
begin
write ('masukkan angka: '); readln(n);

for i:=1 to n do
begin
for j :=1 to i do
write (5);
writeln;
end;
readln;
end.