Составте программу, определяющую,является ли введеное число с клавиатуры целое число четным

var
  i : Integer;
begin
  Write('Введите число: ');
  Readln(i);
  
  if i mod 2 = 0 then 
    Writeln('Четное')
  else
    Writeln('Нечетное');

  Readln;
end.