Запиши программу в паскаль задача: выяснить является ли произвольное число x четным

Программа на языке Паскаль для определения четности числа x:

program IsEven;
var x: integer;
begin
  writeln('Введите число x: ');
  readln(x);
  if x mod 2 = 0 then
    writeln('Число ', x, ' является четным.')
  else
    writeln('Число ', x, ' не является четным.');
end.

Скопируйте и вставьте эту программу в вашу среду разработки Паскаль для выполнения.