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

program srgeom;
var a, b, srednee: real;
begin
    write('Введите значения a и b: ');
    readln(a, b);
    srednee := sqrt(a * b);
    writeln('Среднее геометрическое -- ', srednee);
end.