[DEKLARATION:  VAR: ZAEHLER,ZAHL:GANZ;
                          
                        UMFANG,RADIUS:REELL;
                   CONST:PI ]
                    
BEGINN 
       PI:=3,1415926;
ZAEHLER:=0;
LIES ZAHL;
             SOLANGE ZAHL<>0
             FUEHRE
                     WENN  2 TEILT ZAHL
                      DANN ZAEHLER:=ZAEHLER+1;
                         
                   LIES ZAHL 
              AUS;
                 SCHREIB ZAEHLER
ENDE