program phuongt;     [khai báo tên chương trình]

uses crt;      [khai báo tên thư viện]

  var i, s: integer;          [khai báo biến]

begin             [bắt đầu chương trình]

           clrscr;             [xóa màn hình]

           s:=1;             [gán s bằng 1]

           for i:=1 to 10 do s:=s*i;          [chạy i từ 1 đến 10 và làm gán s bằng s*i]

           write('S theo for...do: ', s); [in kết quả s ra màn hình theo lệnh for...do]

           i:=1;            [gán i bằng 1]

           while i<=10 do          [nếu i ≤ 10]

           begin                [bắt đầu câu lệnh]

                      s:=s*i;               [gán s bằng s*i]

                      i:=i+1;             [tăng giá trị i lên 1 đơn vị]

           end;             [kết thúc câu lệnh]

           write('S theo while...do: ', s);          [in kết quả s ra màn hình theo lệnh while...do]

           readln              [in kết quả ra màn hình]

end.          [kết thúc chương trình]

Var i,s:integer;
Begin
s:=1
for i:=1 to 10 do s:=s*i;
writeln('Tich: ',s);
readln
end.