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

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;beginwrite('Введите число: ');readln(n);if n mod 2=0 thenwriteln('Число четное')else writeln('Число нечетное');readln;end.