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

program tinh_tich;

uses crt;

var i,p,n:integer;

begin

 clrscr;

write(‘nhap n’);

readln(n);

tich:=1;

for i:=1 to n do

  tich:=tich*i

if tich<1000 then writeln(tich);

if tich<1000 then writeln(‘n’,i);

readln;

end.