Вычислить среднее арифметическое тангенсов трех вещественных чисел

readln(a, b, c);
if (cos(a) <> 0) and (cos(b) <> 0) and (cos(c) <> 0)
  then begin
    d := (sin(a) / cos(a) + sin(b) / cos(b) + sin(c) / cos(c)) / 3;
    writeln(d:0:5)
  end
  else writeln('Error: zerodivide.');

program tgtgtg;
 
var a, b, c, d: real; //объявляем переменные
 
begin
  write('Enter a b c: ');
  readln(a, b, c); //ввод a, b, c
  if (cos(a) <> 0) and (cos(b) <> 0) and (cos(c) <> 0) //если ни один знаменатель не равен нулю, 
    then begin //то
      d := (sin(a) / cos(a) + sin(b) / cos(b) + sin(c) / cos(c)) / 3; //вычисляем среднее арифметическое тангенсов
      writeln(d:0:5) //и печатаем с пятью знаками после десятичной точки
    end
    else writeln('Error: zerodivide.'); //иначе печатаем сообщение об ошибке
  readln //ждём реакции пользователя перед закрытием программы
end.

var a, b, c: real;
 
begin
  readln(a, b, c);
  if (cos(a) <> 0) and (cos(b) <> 0) and (cos(c) <> 0)
    then begin
      d := (sin(a) / cos(a) + sin(b) / cos(b) + sin(c) / cos(c)) / 3;
      writeln(d:0:5)
    end
    else writeln('Error: zerodivide.');
end;

var a, b, c, d: real;

end.