составить программу вычисляющую среднее арифмитическое и среднее геометрическое 2-х чисел?

Question

составить программу вычисляющую среднее арифмитическое и среднее геометрическое 2-х чисел?

Answer 1

var a, b: real;

begin

  readln(a, b);

  writeln('Среднее арифметическое: ', (a + b) / 2, ' , среднее геометрическое: ', sqrt(a * b));

end.