Программа на 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.