Эту задачу предлагают тем, кто только начинает учить программирование. В задаче надо написать программу, которая определяет будет ли число четным. Число четное, если оно делится на два без остатка.

var x: integer;
begin
 write('Введите x: ');
 readln(x);
 if x mod 2 = 0 then
 writeln('Это четное число')
 else writeln('Это нечетное число');
end.

---