Помогите, как сделать программу pascal Repeat Until. по блок схеме...

Question

Помогите, как сделать программу pascal Repeat Until. по блок схеме
http://i053.radikal.ru/1711/8d/24f75f862b55.png
Желательно программу, но если сложно,сделать условие правильным с выводом S

Comments

T=1/a, "а" откуда брать ?

Answer 1

Вводится N и A
var i,n:integer;
s,t,a:real;
begin
  readln(n,a);
  s:=0;
  i:=1;
  t:=1/a;
repeat
  s:=s+t;
  t:=t*t;
  inc(i);
until i>n;
writeln('S=' ,s);
readln
end.