Задание №61775 ЕГЭ Информатике

var sum, max, i: integer;
begin
  max := 0;
  sum := 0;
  for i := 1016 to 7937 do begin
      if i mod 3 = 0 then
          if i mod 7 <> 0 then
              if i mod 17 <> 0 then
                  if i mod 19 <> 0 then
                      if i mod 27 <> 0 then begin
                          sum := sum + 1;
                          if i > max then 
                              max := i;
                      end;
  end;
  writeln(sum, max);
end.