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

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