** языке Pascal составьте программу , которая запрашивает ввод случайных чисел a,b и N с...

Question

На языке Pascal составьте программу , которая запрашивает ввод случайных чисел a,b и N с клавиатуры. Если оба числа больше N , то и программа должна напечатать слово "БОЛЬШЕ" , если меньше 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')
end.