Sử dụng câu lệnh lặp While ... do để viết chương trình: Tính tích của N số tự nhiên đầu tiên với số lần lặp không xác định (với N là số tự nhiên được nhập vào từ bàn phím).

Program BTH;
uses crt;
var i,n:longint;
s:word;
Begin
        clrscr;
        write('Nhap n: ');readln(n);
        s:=1;
        While i<>n do
        Begin
                i:=i+1;
                s:=s*i;
        end;
        write('Tich cac so tren la: ',s);
        readln;
end.

Program hillsnguyen;

Var N,i,:Integer;

       S : longint;

Begin

Writeln ('Nhap N = ');

Readln(N);

S:=1;

i:=1;

While i<= N do 

Begin

S:=S*i;

i:=i+1;

End;

Writeln ('S = ' S);

Readln;

End.