Программирование на 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.