Урок №9 Задание 16

Урок №9 Задание 16

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

program Pr9_16;
var a,b,c,x : integer;
begin
  writeln('Введите три числа : ');
  readln(a,b,c);
  if (a>=b) and (a<=c) then
    writeln('медиана X= ',(B+C)/2)
  else if (b>=a) and (b<=c) then
    writeln('медиана X= ',(A+C)/2)
  else if (c>=a) and (c<=b) then
    writeln('медиана X= ',(A+B)/2);
  readln();
end.                         

Консоль:

Введите три числа :
-2
6
18
медиана X=  8.00000000000000000000E+0000