Вообще цикл выполняется очень много раз.
Ответы
а)12
б)7
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;
<span>end.
Как то так.</span>
Решение во вложении.
<em><u>Ответ:</u></em>
Александр - Иркутск
Николай - Рязань
Денис - Уфа
Михаил - Саратов
Геннадий - Тюмень
Семен - Воркута