Можно организовать цикл while с условием s/d<2 (d можно задать произвольно,например,положить равным 1),а внутри цикла производить операции
s:=s*(1+k);
n:=n+1; //перед while'ом только нужно присвоить n значение 0