Среди трёхзначных чисел найти все числа кратные 2 и 7 и выведите их в паскале напишите программу

Var i: integer;
begin
for i := 100 to 999 do
  if ((i mod 2 = 0) and (i mod 7 = 0)) then
    writeln(i);
end.