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

Так вы уже практически написали программу. Осталось только чуть-чуть приукрасить код: var   x: integer; begin   readln(x);   if x mod 2 =0 then writeln(x,' четное') else writeln(x,' нечетное'); end.