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

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

У вас есть три числа (три переменные) найдите их медиану.

var a, b, c: integer;
begin
  write('Введите три числа: ');
  readln(a, b, c);
  if ((a >= b) and (a <= c)) or ((a >= c) and (a <= b)) then
    writeln('Медиана - ', a);
  if ((b >= a) and (b <= c)) or ((b >= c) and (b <= a)) then
    writeln('Медиана - ', b);
  if ((c >= b) and (c <= a)) or ((c >= a) and (c <= b)) then
    writeln('Медиана - ', c);
  readln();
end.   

Вывод консоли:

Введите три числа: 2 3 1
Медиана - 2

Введите три числа: 1 2 3
Медиана - 2

Введите три числа: 1 3 2
Медиана - 2