PROGRAM TEST(OUTPUT);                             
TYPE VECTOR = RECORD X,Y: REAL END;               
VAR P,Q,S,D: VECTOR;                              
                                                  
FUNCTION ADD(P,Q: VECTOR): VECTOR;                
BEGIN                                             
END;                                              
                                                  
FUNCTION SUB(P,Q: VECTOR): VECTOR;                
BEGIN                                             
END;                                              
                                                  
PROCEDURE TESTUPRO(P,Q: VECTOR);                  
BEGIN                                             
END;                                              
                                                  
BEGIN                                             
  TESTUPRO(S,D);                                  
  TESTUPRO(ADD(P,Q),SUB(P,Q));                    
  TESTUPRO(S,D);                                  
END.