Помогите написать программу на пскале для заполнения двумерного массива следующими числами: 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.