[DEKLARATION :ZAHL,N:GANZ]
BEGINN
N:=0;
LIES ZAHL;
SOLANGE ZAHL<>0
         FUEHRE WENN 2 TEILT ZAHL
        	DANN N:=N+1;
		LIES ZAHL
AUS;
SCHREIB N
ENDE