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

Question

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

Answer 1

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

Answer 2

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