Pascal. Задача 8-29

Рассматривается множество целых чисел, принадлежащих числовому отрезку [3052; 7445], которые делятся на 4 или 5 и не делятся на 7, 9, 13, 23. Найдите количество таких чисел и максимальное из них.

Вывести два целых числа: сначала количество, затем максимальное число.

Решение
var
  i, cnt, max : integer;
begin
  cnt := 0;
  max := 0;
  for i := 3052 to 7445 do begin
    if ((i mod 4 = 0) or (i mod 5 = 0)) and (i mod 7 <> 0) and (i mod 9 <> 0) and (i mod 13 <> 0) and (i mod 23 <> 0) then begin
      Inc(cnt);
      if i > max then max := i;
    end;
  end;
  Writeln('Количество: ', cnt);
  Writeln('Максимум: ', max);
end.