Объяснение:
Program;
var a, sum, p, i:integer;
Begin
sum:=0;
p:=1;
for i:=1 to 10 do
begin;
read (a) ;
sum:=sum+a;
p:=p*a;
end;
writeln (sum, p) ;
End.
