Даны 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 раз