Ввести три числа, найти их сумму и произведение и среднее арифметическое пример: введите три числа: 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.