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.