Question

[Trần Đăng Khôi]

T:=0
for i:=1 to 100 do T:=T+1/i;
writeln(T)
T:=0;i:=1
write i<=100 do begin T:=T+1/i; i:=i+1 end;
writeln(T)