uses crt;
var s:real;
i:integer;
begin
clrscr;
s:=0;
for i:=1 to 100 do
s:=s+1/i;
writeln('S=',s:4:2);
readln;
end.
program an_danh;
uses crt;
var tong:real;
i:integer;
begin
clrscr;
tong:= 0;
for i:= 1 to 100 do
tong:= tong + 1/i;
write('Tong = ',tong:0:2);
readln
end.