Написать блок-схему и программу на языке программирования Pascal, определяющую четность числа.

program one;

var

i: Integer; //объявляем переменную

begin

ReadLn(i); //считываем с консоли число

if i mod 2 = 0 then //если число делится без остатка на 2

WriteLn('Четное') //то выводим "Четное"

else

WriteLn('Нечетное'); //иначе выводим "Нечетное"

end.

Блок-схему смотри во вложении.