Em hãy viết chương trình tính tích N số tự nhiên đầu tiên sao cho tích nhỏ hơn 1000 vs N số tự nhiên đc nhấp vào từ bàn phím và xuất ra số tự nhiên N và tích và tích p tính đc
uses crt; var n,i,p:longint; begin clrscr; write('N= ');readln(n); p:=1; for i:=1 to n do p:=p*i; writeln('So n: ',n); writeln('Tich p: ',p); readln end.