Pascal. Задача 8-27

Рассматривается множество целых чисел, принадлежащих числовому отрезку [1016; 7937], которые делятся на 3 и не делятся на 7, 17, 19, 27. Найдите количество таких чисел и максимальное из них.

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

Решение
var
  i, cnt, max : integer;
begin
  cnt := 0;
  max := 0;
  for i := 1016 to 7937 do begin
    if (i mod 3 = 0) and (i mod 7 <> 0) and (i mod 17 <> 0) and (i mod 19 <> 0) and (i mod 27 <> 0) then begin
      Inc(cnt);
      if i > max then max := i;
    end;
  end;
  Writeln('Количество: ', cnt);
  Writeln('Максимум: ', max);
end.