求出1至N（10<N<10000）之间不能被2，3，5，7除尽的整数个数。（18分）
算法描述:定义一个数组A[10..10000] OF INTEGER；其中A（I）存放I，然后进行筛选：将凡是能被2，3，5，7除尽的数，全部变成为0，最后统计出剩下的不为0的数，即为所求。

PROGRAM EX1（INPUT，OUTPUT）；
            VAR N，I，S：=INTEGER；
                 A  ：ARRAY[10..10000] OF INTEGER;
            BEGIN
              WRITE(‘INPUT N=’);  READ(N);
              FOR I:=1 TO N DO     A[i]:=i       
              FOR I：=1 TO N DO
                  IF    A[i] mod 2=0     OR    (A[I] MOD 3=0)  
                      OR  A[i] mod 5=0   OR   (A[I] MOD 7=0) 
                  THEN  A(I):=0;
                     s:=0   
                  FOR I:=1 TO N DO
                   IF    a[i]<>0      THEN S：=S+1  
                 WRITE（‘S=’，S）
END.