program Tahmasebi_Mehdi ;
uses wincrt ;
var
i,j,a,help,k : integer ;
begin
a:= 5 ;
help := 1 ;
for i := 5 downto 1 do
begin
write( i:a-i+help ) ;
j := 1 ;
for j := 1 to a-help do
write(' ' ,i+j);
for k := 1 to a-help do
write(' ' ,i+j-k);
help := help + 1 ;
writeln;
end
end.