(pascal) заполнить квадратную матрицу а[5,5] 1 2 3 4 5 2 3 4 5 0 3 4 5 0 0 4 5 0 0 0 5 0 0 0 0

Var
i,j:Integer;
A:Array[1..5,1..5] of Integer;
Begin
 for i:=1 to 5 do
  for j:=1 to 5 do
   Read(A[i,j]);
 Writeln('Массив 5х5 успешно заполнен');
end.