Правильно ли работает программа? Среднее арифметическое - Free Pascal

Формулировка задачи:

Здравствуйте! Написал программу для определения среднего арифметического. Ниже её код:

                    Листинг программы
                
 
                        
                          
                    
program n_34;
uses crt;
var 
a, b, c, otvet: real;
begin
   ClrScr;
   write ('Введите число a: ');
   readln (a);
   write ('Введите число b: ');
   readln (b);
   write ('Введите число c: ');
   readln (c);
   otvet:= a+b+c/3;
   write ('Среднее арифметическое= ',otvet:10:11);
   while not keypressed do;
end.

Ввел три раза число 5, но ответ 11.66666666667. Это правильно или где-то допущена ошибка?

Решение задачи: «Правильно ли работает программа? Среднее арифметическое»

Листинг программы

var a, b, c: Real;
begin
  Read(a,b,c); a:=a*b*c;
  if a<0 then a:=-Exp(Ln(-a)/3) else a:=Exp(Ln(x)/3);
  WriteLn(a);
end.

Объяснение кода листинга программы

В первой строке объявляются три переменные типа Real: a, b и c.
Во второй строке происходит чтение значений переменных a, b и c с помощью функции Read.
В третьей строке происходит вычисление значения переменной a как произведения значений переменных a, b и c.
В четвертой строке выполняется проверка: если значение переменной a отрицательное, то оно изменяется на значение -Exp(Ln(-a)/3). В противном случае значение переменной a изменяется на значение Exp(Ln(x)/3).
В пятой строке происходит вывод значения переменной a на экран с помощью функции WriteLn.
Код завершается в шестой строке.