Решения задач на тему ввода и вывода данных в Pascal

Решение задачи №9

program nine;

var
   a,b:real;

begin
     write('a=');
     read(a);
     write('b=');
     read(b);
     write('Среднее геометрическое = ',sqrt(a*b));
end.

Назад