Viết chương trình tính tích các số nhập vào từ bàn phím cho đến khi tích lớn hơn 1000 ( môn tin học 8 )

program BT;

uses crt;

var n,i,S: integer;

Begin

         clrscr;

         i:=1; S:=1;

         while S<=1000 do

         begin

                  write(‘Nhap so: ‘); readln(n);

                  S:=S*n;

                  i:=i+1;

         end;

         write(‘Tich cac so vua nhap = ‘,S);

         readln

End.