Delphi - lab1.1

program lab1_4;
Uses Math;
var s, sc, sp, x, an, ap, e: real;
k: integer;
function f(n:integer): integer;
begin
  if n < 1 then
     f := 1
  else
     f := n*f(n-1);
end;

begin
write('x= ');
readln(x);

write('e= ');
readln(e);

k := 0;
s := 0;
sp := 0;
ap := x;
repeat
  an := 2*ap + (16+x)/(4+abs(power(ap, 3)));
  writeln('an= ', an, ' ap= ', ap);
  writeln(abs(an-ap));
  if abs(an-ap) < e then
     Break;
  ap := an;
  k := k + 1;
until k > 100;
writeln('a= ', ap);
writeln('k= ', k);
readln;
end.