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