Даны два неотрицательных числа 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.