Даны два неотрицательных числа a и b . найти их среднее геометрическое т.е. квадрат. Корень из их произведения (ab)в квадрате

Var a,b,sg:real;Beginwriteln('Введите два неотрицательных числа a и b');readln(a,b);sg:=(sqrt(sqr(a*b)));writeln('Среднее геометрическое чисел a и b ',sg);end.