Напишите программу на паскале А.выясните какие числа ввел пользователь: положительное или отрицательное? Б.выясните какие числа ввел пользователь: четное или нечетное ?

Предыдущий
вопрос Следующий
вопрос

program CheckNumbers;

va
number: integer;

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

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

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

end.