Урок 9 Задача 13

Урок 9 Задача 13

У вас есть три числа (три переменные) найдите их медиану(link is external).
Примечание: это условие давалось как простая разминочная задачка для собеседования в Яндекс.

var s, t, q, x:integer;
  M:real;
  s2:real;
  t2:real;
  q2:real;
begin
     readln(s);
     readln(t);
     readln(q);
     M:=(s+t+q)/3;
     s2:=abs(s-M);
     t2:=abs(t-M);
     q2:=abs(q-M);
     if s2<t2 then
        if s2<q2 then
           writeln(s);
     if t2<s2 then
        if t2<q2 then
           writeln(t);
     if q2<s2 then
        if q2<t2 then
           writeln(q);
     readln();
end.