var a:array[1..100,1..100]OF INTEGER;
  i,j,n:1..100;   t:word;
begin
 read(n);
 FOR I:=1 TO N DO
  FOR j:=1 to n do
 read(a[i,j]);
 for i:=1 to n do  begin
 t:=0;
 for j:=i downto 1 do begin
 t:=t+1;
 write(a[j,t]);
 end;end;
 for i:=2 to n do  begin  t:=i;
 for j:=n downto i do begin
 write(a[j,t]);
 t:=t+1;
 end;end;
 readln;readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

O`YLAB KO`RSANG TOPASAN

xomkalla