Задание с матрицой

[vanookay]

Написать программу для решения поставленной задачиБезымянный.png

[newerow1989]

const n=5;
var i,j:integer;
    p:array[1..n,1..n] of byte;
begin
   For i:=1 to n do
      For j:=1 to n do
         If i=j then
            p[i,j]:=2 else
         If Abs(i-j)=1 then
            p[i,j]:=1 else
            p[i,j]:=0;
   For i:=1 to n do
   begin
      For j:=1 to n do
         Write(p[i,j],'  ');
      Writeln;
   end;
   Writeln;
   Readln;
end.