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

пример:

Введите три числа:

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.