Придумать задачу для Pascal ABC, которая содержит не менее 3 условий (разветвляющиеся вычислительные процессы) и написать программу к ней

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

Задача: Напишите программу, которая будет определять, является ли введенное число четным, положительным и больше 10.

Программа:

program CheckNumber;
var
number: integer;
begin
writeln('Введите число:');
readln(number);
if (number mod 2 = 0) and (number > 10) and (number > 0) then
writeln('Число ', number, ' является четным, положительным и больше 10.')
else if (number mod 2 <> 0) then
writeln('Число ', number, ' не является четным.')
else if (number < 0) then
writeln('Число ', number, ' не является положительным.')
else if (number <= 10) then
writeln('Число ', number, ' не больше 10.');
end.

При вводе числа программа будет проверять его на соответствие указанным условиям и выводить соответствующее сообщение.