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

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

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

var
  a,b,c,d:integer;

begin
  writeln('Vvedite tri chisla: ');
  readln(a, b, c);
  write('Mediana: ');
  if (a<b) then
  if (b<c) then d:=b
  else
  if (a<c) then d:=c
  else d:=a
  else
  if (b>c) then d:=b
  else
  if (a>c) then d:=c
  else d:=a;
  writeln(d);

  readln();
end.

Консоль:

Vvedite tri chisla:
1
2
3
Mediana: 2