Viết chương trình sử dụng while..do tính tích 10 số tự nhiên đầu tiên. -Giúp mk với ạ cần gấp

uses crt;

var tich:longint;

    i:byte;

BEGIN

        clrscr;

        i:=2; tich:=1;

        while i<=10 do

        begin

                tich:=tich*i;

                inc(i);

        end;

        write(‘Tich 10 so tu nhien dau tien la ‘,tich);

        readln

END.

Xin ctlhn!