Помогите, ПАСКАЛЬЗдравствуйте, написала я программку по заданию -Ввести три числа, отыскать

Помогите, ПАСКАЛЬ

Здрасти, написала я программу по заданию

-Ввести три числа, найти их сумму, творенье и среднее арифметическое

Пример
Введите три числа
4 5 7
4+5+7=16
457=140
(4+5+7)3=5.333333

------------------

вышло вот что, выдает ошибку, в чём проблема??? СОС


Program circle_8;

var a,b,c,sum,p,sr: real;

Begin

writeln ('Введите a,b,c');

read (a,b,c);

sum:=a+b+c;

p:=a*b*c;

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

writeln(sum); (a,'+',b,'+',c,'=',sum);

writeln(p);(a,'*',b,'*',c,'=',p);

writeln(sr);(a,'+',b,'+',c,'/',3,'=',sr);

end.