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

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