a) $B1:$ Nhập n;
$B2:$ i←1, nếu i<=n thì chuyển $B3$, Ngược lại chuyển $B4$;
$B3:$ i←i+1, rồi quay lại $B2$;
$B4:$ T←T+1/i*(i+3);
$B5:$ Thông báo kết quả và kết thúc thuật toán.
b) Chương trình:
program Cau_1;
uses crt;
var n,i: integer;
T: real;
Begin
clrscr;
write('Nhap n: '); readln(n);
i:=1;
while i<=n do
begin
T:=T+1/i*(i+3);
i:=i+1;
end;
write('T = ',T:2:2);
readln
End.