Ответ:var a,b,c:integer;

begin

read(a,b,c);

writeln(a,'+',b,'+',c,'=',a+b+c);

writeln(a,'*',b,'*',c,'=',a*b*c);

writeln('(',a,'+',b,'+',c,')/3=',(a+b+c)/3:4:3);

end.

вообщем вот,если что-то не верно..ну говори.

Ответ:

program z1;

var i,a,s,p:integer;

begin

s:=0;

p:=1;

for i:=1 to 3 do

begin

write('Введите ',i,' число: ');

readln (a);

s:=s+a;

p:=p*a

end;

writeln ('Среднее арифметическое чисел ',s/i);

writeln ('Произведение чисел ',p)

end.