a)
program baigiai;
uses crt;
var i:byte;
t:real;
begin
clrscr;
t:=0;
for i:=1 to 100 do t:=t+1/i;
write('Tong la: ',t:2:2);
readln
end.
b)
program bailam;
var t:real;
i:byte;
begin
clrscr;
t:=0;
for i:=1 to 99 do
if i mod 2=1 then t:=t+1/(i*(i+2));
writeln('Tong la: ',t:2:2);
readln
end.