Составить прогаммму проверки четности числа х mod 2=0

Так вы уже практически написали программу. Осталось только чуть-чуть приукрасить код:

var
  x: integer;

begin
  readln(x);
  if x mod 2 =0 then writeln(x,' четное') else writeln(x,' нечетное');
end.

спасибо большое))

Пожалуйста, успехов!