Ошибка возникает из-за того, что в строке writeln('Среднее арифмитическое трёх чисел','',a,'',b,''с,'','=',''d); пропущен символ ";" после b. Необходимо исправить на writeln('Среднее арифмитическое трёх чисел','',a,'',b,';',с,'','=','',d); Также есть еще одна ошибка: в строке writeln('Среднее арифмитическое трёх чисел','',a,'',b,'',с,'','d=',d:5:2); пропущен символ "+" между b и с. Необходимо исправить на writeln('Среднее арифмитическое трёх чисел','',a,'',b,'+',с,'','d=',d:5:2); Итоговый код: var a, b, с, d: real; begin writeln('Введите 1 число'); readln(a); writeln('Введите 2 число'); readln(b); writeln('Введите 3 число'); readln(с); d:=(a+b+с)/3; writeln('Среднее арифмитическое трёх чисел','',a,'',b,';',с,'','=','',d); writeln('Среднее арифмитическое трёх чисел','',a,'+','',b,'+','',с,'=','',d:5:2); writeln('Среднее арифмитическое трёх чисел','',a,'',b,'+',с,'','d=',d:5:2); end.