Viết chương trình tính S = 1*2*3....*n Với n là số nguyên nhập từ bàn phím 11 hoặc n<=10 thì yêu cầu nhập lại (sử dụng câu lệnh while - do) Giúp mình với. Cảm ơn nhiều ạ

Program BTT;
Uses crt;
Var n,i,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);

        While (n<1) or (n>=10) do
        Begin
                Write('Yeu cau nhap lai: '); Readln(n);
        End;

        s:=1;
        For i:=1 to n do
                s:=s*i;
        Write('S = ',s);
        Readln;
End.

Program BTT;
Uses crt;
Var n,i,s: longint;
Begin
 Clrsc

Write('Nhap n: '); Readln(n);
 While (n<1) or (n>=10) do
  Begin
   Write('Yeu cau

    s:=1;
    For i:=1 to n do
                s:=s*i;
    Write('S = ',s);
     Readln;