Program deret

uses wincrt;
var
i,t :integer;
a :real;
begin
i:=1; t:=-2; a:=0;
while i<= 10 do
begin
if i mod 2 = 1 then
begin
t:=t+3;
write('+1/',t);
a:=a+(1/t);
end
else
if i mod 2 = 0 then
begin
t:=t+2;
write('-1/',t);
11
a:=a-(1/t);
end;
i:=i+1;
end;
write(a);
end.