Даны действительное число А и натуральное N. Вычислить S= 1/A + 1/A^2 .....+(1/A^N) с помощью рекурсии. РЕБЯТА СРОЧНО ПОМОГИТЕ СЕГОДНЯ ВЕЧЕРОМ НУЖНО

//Pascal ABC.NET Версия 2.2 Сборка 790var a,s,a1:real;i,j,n:integer;procedure subsqr(var i,j:integer;var a1,a:real);begin;if i<>j thenbegin;inc(j);a1:=a1*a;subsqr(i,j,a1,a);end;end;begin;readln(a);if a=0 then exit;readln(n);j:=1;for i:=1 to n dobegin;a1:=a;subsqr(i,j,a1,a);s:=s+1/a1;j:=1;end;writeln(s);end.Пример ввода:22Пример вывода:0.75