33.

var i,n:integer; p:real;
begin
cls;
write('write n '); readln(n);
for i:=2 to n do
begin
p:=p+(1-(1/sqr(i)));
end;
writeln(p);
readln;
end.

34.
var i,n:integer; p:real;
begin
cls;
write('write n '); readln(n);
for i:=1 to n do
begin
p:=p+(1-(1/s*i));
end;
writeln(p);
readln;
end.

35.
function fact(i:integer):integer;
begin
if i=0 then fact:=1
else fact:=fact(i-1)*i;
end;
var i,n:integer; p:real;
begin
cls;
write('write n '); readln(n);
for i:=1 to n do
begin
p:=p+fact(i);
end;
writeln(p);
readln;
end.

37.

program fibonachchi;
VAR
n,F,F2,F1,I:integer;
begin
write ('Введите число:');readln (n);
F1:=1;
F2:=1;
if (n=1) or (n=2) then writeln ('Число фибоначи:1')
else
begin
FOR I:=3 to n do begin
F:=F1+F2;
F2:=F1;
F1:=F;
end;
writeln ('Число фибоначи:',F);
end;
end.

38. пишу сокращенно тело программы напишешь.

for i:=1 to n do
y:=y*2*n-1;

39.
for i:=1 to n do
y:=y*2*n;

40.
подключить модуль math или как там на паскале)
for i:=1 to n do
y=y+power(cos(x),i);

41.
h:=0.1;
for i:=1 to n do
y=y+sin(i);
i:=i+h;