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

пример:
Введите три числа:
4 5 7
4+5+7=16
4*5*7=140
(4+5+7)/3=5.33

Program n_1; Var a, b, c, S, n: Integer;Var q:Real;Begin Writeln('' Введите первое число'');Readln(a) ; Writeln('' Введите второе число'');Readln(b) ; Writeln('' Введите третье число'');Readln(c) ;S:=a+b+c;n:=a*b*c;q:=S/3;Writeln(S) ;Writeln(n) ;Writeln(q) ;end.