Dùng for..to..do:
uses crt;
var i:integer; T:real;
begin
clrscr;
T:=0;
for i:=1 to 100 do T:=T+1/i;
write('T la: ',T:4:2);
readln
end.
Dùng while..do:
uses crt;
var i:integer; T:real;
begin
clrscr;
T:=0; i:=1;
while i<=100 do
begin
T:=T+1/i;
inc(i);
end;
write('T la: ',T:4:2);
readln
end.