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

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.

Comments

Что озгачает else writeln