Question

клавиатурой вводится число вывести на экран четное оно или нет

Answer 1

var n:integer;
begin
readln(n);
if(n mod 2 = 0) then
writeln('Chetnoe')
else writeln('nechetnoe');
end.