Составить на Паскале программу для вычисления суммы ряда S=(x+10)+(x+11)..(x+99)
Составить на Паскале программу для вычисления произведения ряда P=1/2 * 1/4 *...1/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.