program mn;
uses crt;
var i,j,n:integer;
BEGIN
ClrScr;
Write('n:');
readln(n);
for i:=0 to n do
begin
for j:=i downto 0 do
Write(j,' ');
writeln;
end;
readln;
END.