Câu 1: 
- Giá trị đầu: 1
- Giá trị cuối: 5
- Số lần lặp: 5
- Giá trị s: 2,283
Câu 2:
Program BTT;
Uses crt;
Var i,n: longint;
    S: extended;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0;
        For i:=1 to n do
                s:=s+1/i;
        Write('S = ',s);
        Readln
End.

Câu 1: 
Giá trị đầu là 1
Giá trị cuối là 5
Số lần lặp là  5
Giá trị của S ≈ 2,272
Câu 2:

Program BTH;

uses crt;

var b:real;

a,c:longint;

Begin

clrscr;

Write('Nhap so nguyen N: ');readln(a);

for c:=1 to a do

b:=b+1/c;

writeln('Tong day so tren la: ',b:4:2);

readln;

end.