lập trình tính tích các số tự nhiên từ một đến mười

program tinh_tich;

uses crt;

var i:byte;

      tich:longint;

begin

     clrscr;

     tich:=1;

     for i:=1 to 10 do

          tich:=tich*i;

     write(‘Tich cac so tu nhien tu 1 den 10 la: ‘,tich);

     readln;

end.