Даны 3 отрезка (а1, а2, а3). Определить, во сколько раз наибольший из них большенаименьшего.

Var
  a1, a2, a3, mx, mn: real;

begin
  writeln(Введите длины отрезков a1, a2, a3);
  readln(a1, a2, a3);
  mx := max(max(a1, a2), a3);
  mn := min(min(a1, a2), a3);
  writeln(Наибольший отрезок больше наименьшего в , mx / mn:0:3, раз)
end.

Тестовое решение:

Введите длины отрезков a1, a2, a3
14 11 9.4
Наибольший отрезок больше наименьшего в 1.489 раз