Программирование задач нахождение суммы и произведения

[Яська]

очень нужно...

[ОДИНОЧЕСТВО В СЕТИ]

randomize;
p:=1;
s:=0;
for i:=1 to 7 do begin
x[i]:= random(10)+1;
p:=p*x[i];
y[i]:=random(10)+1;
s:=s+x[i];
end;
z:=p*s;
writeln(z);