program Tinh_tong;
uses crt;
var i,n: byte; s: real;
begin
 clrscr; i:=1; s:=0;
 while i<=100 do s:=s+1/i;
 write('Tong can tim :',s:2:2); readln
end.

uses crt;
var i,n:integer;
r:real;
begin
        //for..to..do
        clrscr;
        write('Nhap n:');
        readln(n);
        r:=0;
        for i:=1 to n do
        if i mod 2=1 then r:=r+1/i;
        writeln('Tong S=',r:0:3);
        readln;
end.

uses crt;
var i,n:integer;
r:real;
begin
        //while..do
        clrscr;
        write('Nhap n:');
        readln(n);
        r:=0;
        i:=1;
        while i<=n do
        begin
                r:=r+1/i;
                i:=i+2;
        end;
        writeln('Tong S=',r:0:3);
        readln;
end.