Sử dụng lệnh lặp for to do viết chương trình tính tích các số tự nhiên lớn hơn 8 và bé hơn 16

program tinhtich;

uses crt;

var i:byte;

      tich:longint;

begin

       clrscr;

       tich:=1;

       for i:=9 to 15 do

              tich:=tich*i;

       write(‘Tich cac so tu nhien lon hon 8 va be hon 16 la: ‘,tich);

       readln;

end.