Един бърз Pascal с вложени цикли?

[Chacho]

program asdf;

var i, j, n: integer;

begin

write("n="); readln(n);

for i := 1 to n do
begin

for j:= 1 to i do
write(j," ");

writeln;

end;
readln;
end.