Сделать в pascal abc. 1.даны два неотрицательных числа a и b. найти их среднее , т.е. квадратный корень из их произведения: (a*b)1/2 (1/2 это степень). 2.даны два ненулевых числа. найти сумму, разность, произведение и частное их модулей. 3.даны два круга с общим центром и радиусами r1 и r2 (r1> r2). найти площади этих кругов s1 и s2, а также площадь s3 кольца, внешний радиус которого равен r1, а внутренний радиус равен r2: s1=п* (r1)^2, s2=п* (r2)^2, s3=s1 - s2. в качестве значения п использовать 3.14. 4.дана площадь s круга. найти его диаметр d и длину l окружности, ограничивающей этот круг, учитывая, что l=п*d, s=п*d^2/4. в качестве значения п использовать 3.14.
begin
readln(a,b);
c:=sqrt(a*b);
writeln('Среднее геометрическое=',c)
end.