viết chương trình tính tích các số từ 1 đến 10 help me ,please!!!!!!!!!

uses crt;

begin

          clrscr;

          writeln(‘Gia tri cua tich la  ‘,1*2*3*4*5*6*7*8*9*10);  {Miễn code chạy đc :))}

          readln;

end.