Напечатайте таблицу умножения чисел от 25 до 50 на числа 2,3, 4 и 5. Все данные расположите в неКак узнать сколько столбцов так, чтобы они были видны на экране. pascal abc

program z1;

var i,j:integer;

a : array [2..5,25..50] of integer;

begin

write(' ');

for j:= 25 to 50 do write (j:4);

writeln;

for i:= 2 to 5 do

begin

write(i);

for j:= 25 to 50 do

begin

a[i,j]:=i*j;

write(a[i,j]:4)

end;

writeln

end

end.

Вывод как в таблице умножения - на перекрестке строки и столбца значение произведения