[Страдалецъ]

Нашествие студиусов!

Код:

Const
  N = 5;
Var
  Arr: Array[1..N,1..N] of integer;
  i,j: Integer;
begin
 for i := 1 to N
 do begin
    for j := 1 to N
    do begin
       Arr[i,j] := Random(100);
       Write(Arr[i,j]:3);
       end;
    WriteLn;
    end;
 for i := 1 to N
 do WriteLn(Arr[i,N-i+1]);
 WriteLn;
 for i := N downto 1
 do WriteLn(Arr[i,N-i+1]);
 ReadLn;
end.