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

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);
minus:=a-b-c; writeln(a,'-',b,'-',c,'=',minus);
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.