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

Question

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

Answer 1

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