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

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

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

var a,b,c:integer;

begin
  writeln('vvedite');
  readln (a,b,c);
  if (a>b) AND (a<c) then
    writeln(a)
  else if (b>a) AND (b<c) then
    writeln(b)
  else if (c>a) AND (c<b) then
    writeln(c)
  else if (b<a) AND (b>c) then
    writeln(b)
  else
    writeln ('no one');
  readln();
end.