T:=0; i:=1;
i<=4 (đúng): T:=T+1/i=0+1/1=1; i:=i+1=1+1=2
i<=4 (đúng): T:=T+1/i=1+1/2=3/2; i:=2+1=3
i<=4 (đúng): T:=T+1/i=3/2+1/3=11/6; i:=3+1=4
i<=4 (đúng): T:=T+1/i=11/6+1/4=25/12; i:=4+1=5
i<=4 (sai): Kết thúc
25/12=2.0833333333 với lại không có giới hạn
Writeln(T) sẽ là: 2.833330000000000+...