Написать программу в паскале
1.Вычислить сумму и произведение n первых членов арифметической прогрессии: а1=2; d=3; an=an-1+d.
2,дано натуральное число n. Вычислить (1+1/12)(1+1/22) … (1+1/n2).
3.Дано целое число А. Найти произведение целых чисел из промежутка от 1 до А

1) var a,s,p,n,i:integer;beginreadln(n);s:=0; p:=1; a:=2;for i:=1 to n do beginp:=p*a;s:=s+a;a:=a+3;end;writeln(s,' 'p);end.2)3)var a,p,i:integer;beginreadln(a);p:=1;for i:=1 to a dop:=p*i;writeln(p);end.