program EvenOrOdd;
varnum: Integer;
beginWrite('Введите целое число: ');Readln(num);
if num mod 2 = 0 thenWriteLn('Четное')elseWriteLn('Нечетное');end.
program EvenOrOdd;
var
num: Integer;
begin
Write('Введите целое число: ');
Readln(num);
if num mod 2 = 0 then
WriteLn('Четное')
else
WriteLn('Нечетное');
end.