Помогите написать программу на пскале для заполнения двумерного массива следующими числами: 2 3 4 5 0 -1 4 5 0 0 -2 -1 0 0 0 -3 0 0 0 0 0 0 0 0 0

Бред конечно, ну а вдруг так const      n = 5;  var    a : array[1..n,1..n] of integer;    i,j : integer;  begin    for j := 1 to n-1 do    a[1,j] := j+1;     for i := 2 to n-1 do    a[i,1] := -(i-1);    for j := 2 to 3 do    a[2,j] := a[1,j+1];    a[3,2] := a[3,1]+1;      for i := 1 to n do    begin      for j := 1 to n do      write (a[i,j]);      writeln();    end;      end.