program CheckNumber;

uses crt;

var
number: Integer;

begin
writeln('Введите число:');
readln(number);

if number = 0 then
writeln('Вы ввели число 0')
else if number mod 2 = 0 then
writeln('Вы ввели четное число')
else
writeln('Вы ввели нечетное число');

if number > 10 then
writeln('Число больше 10')
else
writeln('Число меньше или равно 10');

readkey;
end.