program CheckNumbers;

var
number: integer;

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

// Проверка на положительное или отрицательное число
if number > 0 then
writeln('Вы ввели положительное число')
else if number < 0 then
writeln('Вы ввели отрицательное число')
else
writeln('Вы ввели ноль');

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

end.