Срочно, пожалуйста. на завтра надо

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

Var a,b:real;
Begin 
  Write(Введите 2числа: ); readln(a,b);
      Writeln(Среднее арифмитическое этих чисел = ,(a+b)/2);
      Writeln(Среднее геометрическое этих чисел = ,(a*b)/2);
End.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.