Var x:array[1..5] of integer; an:real; pr,sum,i:integer; begin; pr:=1; for i:=1 to 5 do readln(x[i]); for i:=1 to 5 do sum:=sum+x[i]; for i:=1 to 5 do pr:=pr*x[i]; an:=pr/sum; writeln('Сумма:',sum); writeln('Произведение:',pr); writeln('Частное:',an); <span>end.</span>