Нужна прога с пред условием и пост условием и циклом

program OLOLO;
var
i,n,x:real;
begin
Read (n);
Read (x);
While i>=n
begin
S:=S+EXP(N*ln(sin(x));
n:=n+1;
write ('Сума= ' S);
end.

program OLOLOSHA;
var
i,n,x:real;
begin
Read (n);
Read (x);
Repet
inc(i);
S:=S+EXP(N*ln(sin(x));
until i=n;
write ('Сума= ' S);
end.

program OLOLOSHKA;
var
i,n,x:real;
begin
Read (n);
Read (x);
x1:=sin(x);
s:=x1;
for i:=2 to n do begin
x1:=x1*sin(x);
s:=s+x1;
write ('Сума= ' S);
end.

program OLOLO;
var
  x, s, next:real;
  i, n: integer; // Сказано же - натуральное N
begin
  Read (n);
  Read (x);
  next := x; i := 1; s := 0;
  While i <= n do
  begin
    next := sin(next);
    s := s + next;
    i := i + 1;
  end;
  write ('Сумма= ', S);
end.