Даны три числа. найти среднее арифметическое и среднее геометрическое этих чисел. Паскаль, для программы Algo

program Algo;

var

a, b, c : integer;

average, geometric_mean : real;

{Напишем собственную функцию для нахождения

кубического корня}

function sqrt3 (x: real) : real;

begin

if x = 0.0 then

sqrt3 : = 0.0 {для нулевых значений}

else if x > 0.0 then

sqrt3 : = Exp (Ln (X) / 3) {для положительных значений}

else

sqrt3 : = - Exp (Ln (-X) / 3) {для отрицательных значений}

end;

begin

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

readln (a);

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

readln (b);

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

readln (c);

geometric_mean:=sqrt3 (a*b*c);

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

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

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

end.