подскажите пожалуйста где тут ошибка???

У тебя ошибка в выводе
Program nellton;
uses crt;
var A,B,C:real;
begin
Writeln(введите первое арифметических числа);
Readln(A);
Writeln(введите второе арифметических числа);
Readln(B);
Writeln(введите третье арифметических числа);
Readln(C);
Writeln(равенство= , (A+B+C)/3);
End.