Составить на Паскале программу для вычисления суммы ряда S=(x+10)+(x+11)..(x+99)
Составить на Паскале программу для вычисления произведения ряда P=1/2 * 1/4 *...1/10 
CРОЧНО!РЕБЯТ,ПОМОГИТЕ ПОЖАЛУЙСТА

Спасибо вам огромное!

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