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

var
a, b: real;

begin
writeln('Введите два неотрицательных числа:');
readln(a, b); { <-- Вводим два числа и нажимаем Enter }
{ Результат с точностью 3 знака: }
writeln('Среднее геометрическое ', a, ' и ', b,
' равно ', sqrt(a * b):0:3);
readln
end.