Вывод ответа #1864508335

с учетом исправлений

program test;
var a, b, c, d:real;
begin
    writeln('введите 3 числа');
    writeln('первое число');
    readln(a);
    writeln('второе число');
    readln(b);
    writeln('третье число');
    readln(c);
    d:=(a+b+c)/3;
    writeln('срднеарифметическое ', d);
    readkey;
end;
end.