TONG3 PASCAL

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