я написал, но в силу моей нубистости она не работает, помогите исправить ошибки
program kal; begin var a,b,c,d,e:integer; f:real; write('введите три числа и я найду их сумму,произведение и среднее арифметическое'); read (a, b, c); c:=a+b+c; d:=a*b*c; f:=d/3; writeln ('сумма=',c, 'произведение=',d,'ср арифм=',f); end