задача №18 урок 13.1

http://fkn.ktu10.com/?q=node/8697
Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой"

var k,m, n, i: integer;
begin
writeln ('введи-ка число');
readln(n);
k:=1; 
m:=1; 
for i:=1 to n do
begin
write(i, ' ');
if k=m then
begin
k:=0;
m:=m+1;
writeln;
end;
k:=k+1;
end;
end.