Скажите сработает ли программа в Паскале
program z1;
var i: integer;
begin
for i:= 100 to 999 do
if (( i mod 2 = 0) and ( i mod 7 = 0)) then
writeln (i);
end.

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