Pascal. Задача 1-3

Пользователь вводит два числа. Вывести их среднее геометрическое.

Примечание: Для вычисления квадратного корня используется функция sqrt, например, a := sqrt(16); - переменной a присваивается значение 4.

Решение

var
  a, b, c : double;
begin
  write('Введите первое число? ');
  read(a);
  write('Введите второе число? ');
  read(b);
  c := sqrt(a*b);
  writeln('Среднее геометрическое равно ', c:8:2);
end.

◄▲►