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

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.