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

Question

Гость

Ответ(ы) на вопрос:

Гость

var a:integer; begin; readln(a); if odd(a)=true then writeln('Нечётное') else writeln('Чётное'); end.

Accepted Answer

var a:integer; begin writeln('введите число');readln(a); if (a mod 2=0) then writeln('четно') else writeln('нечетно'); end.