program abc;
uses crt;
var i,k,j,h: integer;

begin
clrscr;

writeln('podaj wysokosc');
readln(h);
writeln;

for i:=1 to h do
begin
k:=1;
for j:=1 to i do
begin
write(k,' ');
k:=k+1;
end;
writeln;
end;

readln;
end.