var n,i,j:integer;beginreadln(n);for i:=n downto 1 dobegin
write('':n-i);
for j:=1 to i do write(i);
writeln;end;end.var n,i,j:integer;beginreadln(n);for i:=1 to n dobegin
write('':n-i);
for j:=1 to i+i-1 do write(i);
writeln;end;end.var n,i,j:integer;...
