У тебя ошибка в выводе
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.