Решение
var count, max, i: integer;
begin
max := 0;
count := 0;
for i := 1721 to 4322 do begin
if (i mod 3 = 0) and (i mod 11 = 0) then
if i mod 5 <> 0 then
if i mod 9 <> 0 then
if i mod 13 <> 0 then
if i mod 22 <> 0 then begin
count := count + 1;
if i > max then
max := i;
end;
end;
writeln(count, max);
end.
ответ: 194191