Паскаль

[Kren12]

Помогите решить, пожалуйста
1)Дано натуральное число n. Вычислить 1/(2 в квадрате)+1/(4 в квадрате)+...1/(2n в квадрате)(в квадрате только n)
2)Вводится последовательность из N целых чисел.Является ли она возрастающей?
3)Вычислить порядковый номер элемента последовательности 1+1/(1+2)+1/(2+3)+...+1/(n+(n+1)), значение которого станет меньше 0,002.
4)b=(1+tg в квадрате*z/2)все это в квадрате
5)даны натуральные числа от 1 до 50.найдите сумму тех из них,корорые делятся на 5 или на 7.

[TemPie]

var
i,n:integer;
s:real;
begin
readln(n);
s:=0;
for i:=1 to n do
s:=s+(1/sqr(2*i));
write(s);
end.

[TemPie]

Вторая задача.

var
n,m,c:integer;
o:boolean;
begin
o:=true;
readln(n);
readln(m);
n:=n-1;
repeat
readln(c);
if m>c then
o:=false;
n:=n-1;
m:=c;
until (n=0) or (o=false);
write(o);
end.

[TemPie]

var
n,k:integer;
r:real;
begin
readln(n);
k:=0;
r:=0;
repeat
k:=k+1;
r:=1/(k+(k+1));
until (k=n) or (r<0.002);
if r<0.002 then
write(k)
else
write('Нет такого элемента.');
end.

[TemPie]

var
i,s:integer;
begin;
s:=0;
for i:=1 to 50 do
begin
if (i mod 5=0) and (i mod 7=0) then
s:=s+i;
end;
write(s);
end.