Pascal ABC
9 класс
Помогите с решением

var i,n,a:integer;     s:real;beginwrite('введите n' , n);read(n)write('введите а); read(a);for i:=1 to n do if i mod 2 =1 then s:=s+1/(power(a,i)write(' ===== ',s);end.