Кто может ? введите с клавиатуры числа a, b и n . если a и b больше n, то напечатайте слово «больше», если меньше n, то напечатайте «меньше», иначе найдите и выведите сумму чисел a и b.

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.