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

Паскаль, для программы Algo

Program Task;

Var a, b, c : integer;

Var alg, geom : real;

begin

write ('Введите первое число:') ;

readln (a) ;

write ('Введите второе число:') ;

readln (b) ;

write ('Введите третье число:') ;

readln (c) ;

geom: = (ln (a*b*c) / 3) ;

alg: = (a+b+c) / 3;

writeln ('Среднее геометрическое: ', geom) ;

writeln ('Среднее арифметическое: ', alg) ;

end.