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

Program n_1;

Var a, b, c, S, n: Integer;

Var q:Real;

Begin

Writeln('' Введите первое число'');

Readln(a) ;

Writeln('' Введите 2-ое число'');

Readln(b) ;

Writeln('' Введите третье число'');

Readln(c) ;

S:=a+b+c;

n:=a*b*c;

q:=S/3;

Writeln(S) ;

Writeln(n) ;

Writeln(q) ;


end.