Рассчитать значение функции, используя операторы while, until и repeat

program fgfd;
uses crt;
var
x,t,p,z,c:real ; //t-tochnost , p- pervoe znachenie funkcii pri n=1
n,k:integer; //k-znachenie   -1 v stepeni
begin
repeat
write ('vvedite x 0 <x <= 2   : ');
readln(x);
until   x<=2 ; // vot tut poischite kak vstavit v eto uslovie escho to chto x>0
n:=1;
write('vvedite tochnost ');
read(t);
p:=x-1;
k:=1;
z:=1;
c:=x-n;
while p>t do
n:=n+1;
z:=z+1;
k:=k*(-1);
c:=c*(x-n);
p:=p+k*c*(1/z);
write('znechenie ln(x) s tochnostyu t ravno: ',p);
end.

program fgfd;
uses crt;
var
x,t,p,z,c:real ; //t-tochnost , p- pervoe znachenie funkcii pri n=1
n,k:integer; //k-znachenie   -1 v stepeni
begin
repeat
write ('vvedite x 0 <x <= 2   : ');
readln(x);
until   (x<=2) and (x>0) ; // vot tut poischite kak vstavit v eto uslovie escho to chto x>0
n:=1;
repeat
write('vvedite tochnost ');
read(t);
until t>0;
p:=x-1;
k:=1;
z:=1;
c:=x-n;
while p>t do
n:=n+1;
z:=z+1;
k:=k*(-1);
c:=c*(x-n);
p:=p+k*c*(1/z);
write('znechenie ln(x) s tochnostyu t ravno: ',p);
end.