Question

Программа запрашивает целое число и определяет четное или нечетно. Составить блок схему и программу.

Answer 1

var a:integer;
begin
   readln (a);
   if (a mod 2 = 0) then writeln ('Четно') else writeln ('Нечетно');
end.