Даны три числа . найти среднее арифметическое и среднее геометрическое этих чисел.Паскаль,для программы 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.