Написать программу в паскале проверить является ли введенное число четным

Program cht; //Название программы
var a: integer; //Описание переменных
Begin //Начало программы   
Writeln ('Введите число'); //Диалог с пользователем   
Readln (a); //Считывание числа   
if a mod 2 = 0 then //Проверка на чётность writeln ('Это число чётное') //Вывод, если чётное   else //Иначе   
writeln ('Число нечётно'); //Вывод на нечётное end. //Конец программы

Program p_1; 
Uses Crt;
var 
n, pr: integer;
begin
write('Введите число: ');
readln(n);
if n mod 2=0 then
writeln('Число четное')
else writeln('Число нечетное');
readln;
end.