Напишите программу которая заполняет массив А[1 ... 5,1 ... 5] по правилу a [i; j]:=i+j

program zz1;

const n = 5;

b = 5; / / задаем количество элементов в массиве

var i, j:integer; / / задаем переменные целого типа

m:array [1 ... n, 1 ... b] of integer; / / описываем массив целого типа

begin

for i:=1 to n do

for j:=1 to b do / / получаем числа по заданному правилу и записываем их в массив

m[i, j]:=i + j;

for i:=1 to n do / / выводим полученный массив на экран

begin

for j:=1 to b do

write (m[i, j]:4);

writeln; / / переходим на новую строку

end;

end.