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

var a,b :real;beginWrite('Введите 2 числа а и b'); ReadLn(a,b);Write('Среднее геометрическое чисел ',a, '  и ',b,' = ',sqrt(a*b));end.