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

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

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