Информатика 8 класс, срочно

Так-то в программе куча ошибок. Во-первых, неправильно задано имя переменной c (она задана кириллицей, а не латиницей, что неправильно), во-вторых в строке "writeln('Среднее арифмитическое трёх чисел','',a,'',b,''с,'','=',''d);" отсутствуют запятые перед переменными c и d. Ибо после каждого вывода (в том числе и текста) в строке должны быть запятые (когда перечисляется, что именно надо вывести).

Ну и сам код не очень чистый, но это - уже не ошибка, а так, придирки... Ну и я не понял, зачем 1 и то же выводить 3 раза на экран?

Вот, как можно это сделать:

 Program P1; 

uses crt; 

var a, b, c: real; 

begin 

clrscr; 

writeln ('Введите с клавиатуры 3 числа. После ввода каждого числа нажимайте клавишу Enter. При вводе дробных значений целую часть от дробной отделяйте точкой, а не запятой.'); 

write ('Введите 1-ое число: '); 

readln (a); 

write ('Введите 2-ое число: '); 

readln (b); 

write ('Введите 3-е число: '); 

readln (c); 

writeln ('Ответ: среднее арифметическое между числами составляет: ', (a+b+c)/3 :1:2); 

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; 

end. 

Или же, чтобы еще и введенные числа были выведены на экран:

 Program P1;  

uses crt;  

var a, b, c: real;  

begin  

clrscr;  

writeln ('Введите с клавиатуры 3 числа. После ввода каждого числа нажимайте клавишу Enter. При вводе дробных значений целую часть от дробной отделяйте точкой, а не запятой.');  

write ('Введите 1-ое число: ');  

readln (a);  

write ('Введите 2-ое число: ');  

readln (b);  

write ('Введите 3-е число: ');  

readln (c);  

writeln ('Ответ: среднее арифметическое между числами ', a, ', ', b, ' и ', c, ' составляет: ', (a+b+c)/3 :1:2);  

write ('Программа завершена. Для выхода нажмите клавишу Enter.');  

readkey;  

end. 

Ошибка в данном коде заключается в неправильном использовании символа "с". В строке
writeln('Среднее арифмитическое трёх чисел','',a,'',b,''с,'','=',''d);

пропущен символ ";" после второй переменной b.

Для исправления ошибки необходимо заменить эту строку на следующую:
writeln('Среднее арифмитическое трёх чисел','',a,'',b,';',с,'','=','',d);

Также есть еще одна ошибка: в строке
writeln('Среднее арифмитическое трёх чисел','',a,'',b,'',с,'','d=',d:5:2);

должны быть пробелы между переменными a, 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, ', = ', '', d:5:2);
writeln('Среднее арифметическое трех чисел ', '', a, ' ', b, ' ', с, ' d=', d:5:2);
end.

Ошибка возникает из-за того, что в строке 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.