Question

Ввести двухзначное число и вывести на экран сообщение четное оно или нет?
x mod 2 =0- четное
.......
Напишите пожалуйста!!!!!!

Answer 1

var x:integer;
begin
  Write('x='); Readln(x);
  If x mod 2 = 0 then Writeln('четное')
else Writeln('не четное ');
readln;
end.