Циклы. Паскаль. Срочно.

[Кирилл17]

с помощью любого из циклов for, while и repeat решить задачу: найти сумму первых N членов ряда S=1+1/a( в кваднате) + 1/а( в четвертой) + 1/а( в шестой) + ... +1/a(в степени 2n-2)

[Сергей089]

Вот это вроде правильно считает

program kirill;
uses crt;
var b,a,s:real;
i,n:integer;
begin
clrscr;
write ('a=');
readln (a);
repeat
write ('n=');
readln (n)
until n>0;
b:=1;
s:=b;
for i:=1 to n-1 do
begin
b:=b*sqr(a);
s:=s+1/b;
end;
writeln ('S=',s:7:2);
readln;
end.