Question

решите пожалуйста очень нужно. ДАЮ МНОГО БАЛЛОВ!!!!

Answer 1

Пусть вводятся числа a, b, c. Будем стараться получить a < b < c и тогда b - то самое "среднее", которое нам надо получить.
1. Сравним a и b. Если a>b, обменяем значения местами.
2. Сравним b и с. Если b<c, то искомое значение b, иначе искомое значение с, но обменивать их местами уже незачем, ведь мы уже узнали, что именно надо вывести.

var
  a,b,c,t:integer;

begin
  Write('Введите три числа через пробел: '); Read(a,b,c);
  if a>b then begin t:=a; a:=b; b:=t end; // обмен
  if b>c then Writeln(c) else Writeln(b)
end.

Пример
Введите три числа через пробел: 13 5 11
11