Вводится натуральное число, не превышающее 1 млрд. вывести количество четных чисел. программа на pascal

Program hhh54;
var x: longint;
begin
  read (x);
  if x mod 2 = 0 then write ('1')
  else write ('0');
end.