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

Var   a,b,N: integerbegin 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.