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