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