Question

Кто может помочь? Введите с клавиатуры числа a, b и n . Если a и b больше n, то напечатайте слово «БОЛЬШЕ», если меньше n, то напечатайте «МЕНЬШЕ», иначе найдите и выведите сумму чисел a и b.

Answer 1

Var
   a,b,N: integer
begin 
Readln(a);
Readln(b);
   Readln(N);
   if (a>N) and (b>N) then Writeln ('БОЛЬШЕ')  
 else if   (a<N) and (b<N) then Writeln ('МЕНЬШЕ')   
   else Writeln ('N в промежутке между a и b') else Writeln('N в промежутке между a и b') end.