Найти среднее арифметическое и среднее геометрическое трех чисел.

program zz1;

var a, b, c, r:real; / /задаем переменные не целого типа

begin

write (' введите первое число '); / / вводим с клавиатуры первое число

read (a);

write (' введите второе число '); / / вводим с клавиатуры второе число

read (b);

write (' введите третье число '); / / вводим с клавиатуры третье число

read (c);

r:=a + b + c; / / вычисляем сумму трех заданных чисел по формуле

writeLn (' среднее арифметическое трех чисел = ', r / 3); / / выводим ответ

r:=exp (1/3*ln (a*b*c)); / / вычисляем среднее геометрическое трех заданных чисел по формуле

writeLn (' среднее геометрическое трех чисел = ', r); / / выводим ответ

end.