Прога в Delphi

[Zenvist]

Прошу, кто сможет 7-ой вариант нужно решить через массив и цикл repeat

[Stilet]

Я могу:

const n=1;
var a:array of real; i,k,fac;:integer; s:double;
begin
 SetLength(a,n);
 for i:=Low(a) to high(a) do readln(a[i]);
 k:=1;fac:=1;i:=1;
 repeat
  k:=-1*k;
  fac:=fac*i;
  s:=s+a[i]/fac;
 until i=n;
 write(s);
 SetLength(a,0);
end.

[Poma][a]

Цикл будет бесконечный..
+ Нет инициализации s