Скажите сработает ли программка в Паскале program z1;var i: integer;beginfor i:=

Скажите сработает ли программа в Паскале
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 и выведите их