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

Спасибо

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