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

Program Begin9;
Var
a,b:Real;
Begin
ReadLn(a,b);
WriteLn('Sqrt(a*b) = ',Sqrt(a*b):6:3);
ReadLn;
End.

автор: Sklyarov Sergej a.k.a. S9