Решить , ! даны целые положительные числа m и n. сформировать целочисленную матрицу размера m х n, у которой все элементы j-го столбца имеют значение 5•j (j = 1, …, n). вывести матрицу в общепринятом виде.

Var a:array[1..100,1..100] of integer;
m,n,i,j:integer;
begin
read(m,n);
for i:=1 to m do
for j:=1 to n do
a[i,j]:=j*5;
for i:=1 to m do begin writeln;
for j:=1 to n do
write(a[i,j]:4);
end;
end.

Как то так.