PROGRAM TEST(INPUT,OUTPUT);                                 
                                                            
VAR CHECK,RESULTAT : INTEGER;                               
                                                            
FUNCTION QUERSUMME(X:INTEGER):INTEGER; FORWARD;             
                                                            
PROCEDURE EINGABE;                                          
BEGIN                                                       
  READLN(CHECK);                                            
  RESULTAT:=QUERSUMME(CHECK);                               
END;                                                        
                                                            
FUNCTION QUERSUMME;                                         
  VAR TEMP: INTEGER;                                        
BEGIN                                                       
 X:=ABS(X);                                                 
 TEMP:=0;                                                   
 IF X<10 THEN QUERSUMME:=X                                  
 ELSE REPEAT                                                
        TEMP:=X MOD 10 + TEMP;                              
           X:=X DIV 10;                                     
      UNTIL X<=0;                                           
 QUERSUMME:= TEMP                                           
END; (* QUERSUMME *)                                        
                                                            
BEGIN                                                       
  REPEAT                                                    
    EINGABE;                                                
    WRITELN("QUERSUMME:",RESULTAT);                         
  UNTIL QUERSUMME(CHECK)=0;                                 
END.