Программа на Pascal .Выдаёт ошибку в стоке исправить 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.
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.