Cách dùng for:

uses crt;
var i,p:longint;
begin
clrscr;
   p:=1;
   for i:=1 to 10 do p:=p*i;
   write(p);
readln;
end.

Cách thường:

uses crt;
begin
clrscr;
   write(1*2*3*4*5*6*7*8*9*10);
readln;
end.

*  Cách thường (không dùng biến):

program bai_giai;
uses crt;
begin
    clrscr;
    write(1*2*3*4*5*6*7*8*9*10);
    readln;
end.

*  Cách thường (dùng biến):

program bai_giai;
uses crt;
var tich:longint;
begin
    clrscr;
    tich:=1*2*3*4*5*6*7*8*9*10;
    write(tich);
    readln;
end.

*  Dùng for...to

program bai_giai;
uses crt;
var i:byte;
    tich:longint;
begin
    clrscr;
    tich:=1;
    for i:=1 to 10 do tich:=tich*i;
    write(tich);
    readln;
end.

*  Dùng while...do

program bai_giai;
uses crt;
var i:byte;
    tich:longint;
begin
    clrscr;
    tich:=1; i:=1;
    while i<=10 do
        begin
            tich:=tich*i;
            i:=i+1;
        end;
    write(tich);
    readln;
end.