Составьте программу, которая выводит на экран числа кратные 2 и 7 в диапазоне от 2 до 120

Программа ищет числа, которые кратны 2 и 7 одновременно. Для нахождения чисел используется условие: если остаток от деления на 2 и 7 равен нулю, то число кратно обоим числам одновременно. Остаток от деления определяется с помощью оператора mod.

program krat_7_2;

begin

for i:integer:=2 to 120 do

if (((i mod 2) = 0) and ((i mod 7) = 0)) then write (i, ' ');

end.