PROGRAM FORWARDDEKLARATIONEN(INPUT,OUTPUT);                 
                                                            
PROCEDURE Q(I:INTEGER); FORWARD;                            
                                                            
PROCEDURE P(C:CHAR);                                        
BEGIN                                                       
  Q(ORD(C));                                                
END;                                                        
                                                            
PROCEDURE Q;                                                
BEGIN                                                       
  WRITELN(I);                                               
  IF I>1 THEN P(CHR(I-1));                                  
END;                                                        
                                                            
BEGIN                                                       
  Q(5);                                                     
END.