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