Составить на паскале программу для вычисления суммы ряда s=(x+10)+(x++99) составить на паскале программу для вычисления произведения ряда p=1/2 * 1/4 */10 cрочно! ,

ВТОРАЯ
var p,s:real;
i:integer;
begin
s:=2;
for i:=1 to 5 do
begin
p:=p+1/s;
s:=s+2;
end;
writeln('Р равно ',p:0:6);
end.
ПЕРВАЯ
var sum,x,i:integer;
begin
write('x= ');
read(x);
for i:=10 to 99 do
sum:=x+i+sum;
writeln('Сумма равна ',sum);
end.