program CheckEvenNumber;
varnumber: integer;
beginwriteln('Введите целое число: ');readln(number);
if number mod 2 = 0 thenwriteln('Число ', number, ' - четное')elsewriteln('Число ', number, ' - нечетное');end.
program CheckEvenNumber;
var
number: integer;
begin
writeln('Введите целое число: ');
readln(number);
if number mod 2 = 0 then
writeln('Число ', number, ' - четное')
else
writeln('Число ', number, ' - нечетное');
end.