Turbo Pascal 30

1. Даны два неотрицательных числа a и b. Найти их среднее геометрическое, то есть квадратный корень из их произведения: .
2. Даны два ненулевых числа. Найти сумму, разность, произведение и частное их модулей.
3. Найти расстояние между двумя точками с заданными координатами x1 и x2 на числовой оси: |x2 - x1|.