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

var a;

var a;beginreadln(a);if a mod 2=0 thenif a<20 then a:=a+5elsea:=a-5else if a<0 thena:=a*(-1)elsea:=a*2;writeln(a);end.

Задача: Пользователем вводится целое число. Если оно чётное и больше 20, то отнять 5, если меньше 20, прибавить 5. Если нечетное и отрицательное, то поменять знак числа, если положительное, то умножить на 2. Вывести полученное число на экран.