Ввести три числа, найти их сумму, произведение и среднее арифметическое — Pascal(Паскаль)

Пример: Ввести 3 числа.
4 5 7
4+5+7=16
4*5*7=140
(4+5+7):3=5,3(3)

uses crt;
var
 a,b,c,sum,p:integer;
 sr:real;
begin clrscr;
write('a='); read(a);
write('b='); read(b);
write('c='); read(c);
sum:=a+b+c;
writeln(a,'+',b,'+',c,'=',sum);
p:=a*b*c;
writeln(a,'*',b,'*',c,'=',p);
sr:=sum/3;
writeln('sredn./arifm.=',sr:2:3);
readkey;
end.