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

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