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 lớn hơn 2000 thì dừng xuất ra số tự nhiên N và tích P tính được. =>Các bạn giải

program Tich;

uses crt;

var N,P: integer;

Begin

         clrscr;

         P:=1;

         while P<=2000 do

         begin

                  N:=N+1;

                  P:=P*N;

         end;

         write(‘N = ‘,N,’ ,  P = ‘,P);

         readln

End.