Описать программу с помощью 3 циклов с их выбором, нужно вычислить ряд 1+x+x^2+x^3..x^n

program laba1;
label f,v,r;
var x,sum,st:real;
i,n,a:integer;
const a=3;
begin
read(a);
case a of 
1: writeln('FOR'); goto f;
2: writeln('WHILE'); goto v;
3: writeln('REPEAT'); goto r;
else exit;
 
begin 
f:
writeln('Введите число и степень ');
read(x,n);
for i:=1 to n do 
st:=Power(x,i)
sum:=i+st;
writeln(sum)
end;
 
v:
writlen('Введите число и степень');
read(x,n);
while i:<=n do begin 
st:=Power(x,i)
sum:=i+st
i:=i+1;
writeln(sum)
end;
 
r: 
i:= 1;
repeat
writlen('Введите число и степень');
read(x,n); 
st:=Power(x,i)
sum:=i+st
i:=i + 1
until i > n;
writeln(sum)
end;
end.

program laba1;
const a=3;
var x,sum,st:real;
i,n,ch:integer;
 
procedure _for;
begin
  writeln('Введите число и степень ');
  read(x,n);
  for i:integer:=1 to n do begin
    st:=Power(x,i);
    sum:=i+st;
  end;
  writeln(sum)
end;
 
procedure _while;
begin
  writeln('Введите число и степень');
  read(x,n);
  while i<=n do begin 
    st:=Power(x,i);
    sum:=i+st;
    i:=i+1;
  end;
    writeln(sum)
end;
 
procedure _repeat;
begin
  i:= 1;
  writeln('Введите число и степень');
  read(x,n);
  repeat 
    st:=Power(x,i);
    sum:=i+st;
    i:=i + 1;
  until i > n;
  writeln(sum)
end;
 
begin
read(ch);
case ch of 
  1: begin writeln('FOR'); _for; end;
  2: begin writeln('WHILE'); _while; end;
  3: begin writeln('REPEAT'); _repeat; end;
else exit; end;
end.