uses crt;
var n,i,j: integer;
c,d: real;
Begin
write('Nhap n: '); readln(n);
i := 2;
while i<=n do
begin
c := (1/i)+c;
i := i+1;
end;
writeln('C=',c:6:2);
j := 1;
while j<=n do
begin
d := (1/(j*(j+1))) +d;
j := j+1;
end;
writeln('D=',d:6:2);
readln;
End.