TONG2 PASCAL

var n,i:longint;
       s1,s2:real;
begin
    assign(input, 'tong2.inp');reset(input);
    assign(output, 'tong2.out');rewrite(output);
    read(n);
    
    // Tinh S1
    s1:=0;
    for i:=1 to n do 
        s1:=s1+1/i;
    writeln(s1:0:2);
    
    // Tinh S2
    s2:=0;
    for i:=0 to n do 
        s2:=s2+1/(2*i+1);
    writeln(s2:0:2);
end.