(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

vari,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.