Немогу разобраться (задача на for) Опции

[kvadrat]

Вот условие:

Вот попытка решить:

program qweqwe;
var n,i,k:integer;s:real;
begin
writeln('n=?');
readln(n);
s:=0;
for k:=1 to n do
begin
i:=((-1)^(k+1))/(k*k);  {незнаю как ввести эту строчку в паскале =(}
s:=s+i;
end;
writeln('s=',s);
end.

Помогите разобраться пожалуйсто.

[kosyak]

Вот условие:

Вот попытка решить:

program qweqwe;
var n,i,k:integer;s:real;
begin
writeln('n=?');
readln(n);
s:=0;
for k:=1 to n do
begin
i:=((-1)^(k+1))/(k*k);  {незнаю как ввести эту строчку в паскале =(}
s:=s+i;
end;
writeln('s=',s);
end.

Помогите разобраться пожалуйсто.

Ну если сложность здесь в том как сосчитать степень то вот формула: x= e ^(a*ln y). Она считает y^a. Но в данном случае у тебя просто будут чередоваться знаки перед единицей... -1 в четной степени =1, а в нечетной =-1... вот и все