Question

Программа на Pascal .Выдаёт ошибку в стоке writeln, помогите исправить

var

a,b,c,s,e:integer;

d:real;

begin

readln:(a,b,c);

s:=a+b+c;

d:=(a+b+c)/3;

e:=a*b*c;

writeln ('Сумма чисел равна ', s);

writeln ('Произведение рано ', e);

writeln ('Среднее арифметическое равно ', d);

end.

Answer 1

Ответ:

var a,b,c,s,e:integer; d:real;

begin

 readln(a,b,c);

 s:=a+b+c;

 d:=(a+b+c)/3;

 e:=a*b*c;

 writeln ('Сумма чисел равна ', s);

 writeln ('Произведение рано ', e);

 writeln ('Среднее арифметическое равно ', d)

end.