1) вывести на экран двумерный массив А[2,5] в табличном виде массивзаполнить

program zz1;
var a:array[1..2,1..5] of integer; //заводим массив на две строки и 5 столбцов
i,j:integer;
begin
for i:=1 to 2 do
for j:=1 to 5 do
a[i,j]:=random(31)+30; //заполняем массив случайными числами от 30 до 60

for i:=1 to 2 do
begin
for j:=1 to 5 do
write(a[i,j]:4); //выводим массив на экран
writeln; //переход на новейшую строку
end;
end.