Помогите пожалуйста,очень срочно!

Ввести три числа,вывести на экран их сумму,произведение и среднее арифметическое.

(В паскале,по такому типу:
Var
Begin
WriteLn
End)
Буду очень благодарна!

Program sum;Var a,b,c,d,e,f:real;BeginWrite ('число a='); Read (a);Write ('число b='); Read (b);Write ('число c='); Read (c);d:=a+b+c;e:=a*b*c;f:=d/3;WriteLn ('Сумма чисел=',d);Writeln ('Произведение чисел=', e);Writeln ('Среднее арифметическое чисел=', f);end.