Составьте программу которая запрашивает число x и определяет чётное или не чётное это число

program oddeven;

var a:integer;

begin

 writeln('Введите число');

 readln(a);

 if a mod 2 = 0 then

   writeln('Число чётное')

 else

   writeln('Число нечётное');

end.