Дано целое число. определить, является оно четным или не четным

uses crt;

var a:integer;

begin

a=5;//Сюда твое данное число

//Если с клавиатуры вводить,то тогда пиши  readln(a);

If a mod 2=0 then write('Чётное')

            else write('Нечётное');

end.