Программирование на Pascal / Delphi / Лабораторная работа1 / LAB_3

program lab_3;
var
l,i:integer;
x,sum,a,x1,k:real;
begin
  write('ўў®¤Ё¬ е');
  readln(x);
  x1:=x;
  l:=1;
  a:=x;
  while a>abs(0.0001) do
     begin
        if l mod 2=0 then sum:=sum-a else sum:=sum+a;
        l:=l+1;
        k:=x;
        for i:=1 to l-1 do x:=x*k;
        a:=x/l;
        x:=x1
     end;
  writeln('б㬬  а ў­  ',sum);
  readln;
  readln;
end.