Program ln(1-x)

program len;
uses wincrt;
var
x,y:array[1..1000] of real;
i,j,n: longint;
a,p,sum:real;
begin
write('masukkan jumlah looping =');
readln(n);
write('masukkan nilai -x =');
readln(a);
sum:= 0;
for i:= 1 to n do
begin
x[i]:= -1/i;
p:=1;
for j:=1 to i do
p:=p*a;
y[i]:=p;
sum:=sum+x[i]*y[i];
end;
writeln('hasil =', sum:0:5);
writeln('asli =',ln(1-a):0:5);
writeln('eror =',ln(1-a)-sum:0:5);
end.

Berikut ini adalah tampilan ketika program di run :