У меня получилось вот что. Я вывел произведения ПОПАРНО, одновременно организовал вывод на дисплей в 5 столбиков (а при работе WriteLn результаты не помещаются в одном окошке.
Var i:integer; p:real; begin writeln('числа кратные 11: '); p:=1; for i:=10 to 99 do if i mod 11=0 then begin p:=p*i; write(i:3); end; writeln; writeln('произведение= ',p); end.
begin
writeln('числа кратные 11: ');
p:=1;
for i:=10 to 99 do
if i mod 11=0 then begin p:=p*i; write(i:3); end;
writeln;
writeln('произведение= ',p);
end.