Question

хелп,плс
информатика​

Answer 1

program pas8_cl_07_name; // Название программы.

var a,b:integer; // Объявление переменных.

begin

writeln('Работает программа Пети Петрова'); //Вывод сообщений

writeln('Программа определяет четность числа');

writeln('Введите число - ');

readln(a); //Ввод числа

if a mod 2=0 then // Проверка на четность

writeln('Число', a, ' - Четное')

else

writeln('Число', a, ' - Нечетное');

readln();

end.