[lmikle]

Сообщение от DEMONTER

нужно другую задачку:

Издеваешься? Задачка для 1го класса школы:

Код:

uses
  Math;

const
  N = 50;

var
  I, J : Integer;
  A : Array [1..N,1..N] Of Integer
begin
  For I := 1 To N Do
    For J := 1 To N Do
      A[I,J] := min(min(i,j),min(N-i+1,N-j+1));