PROGRAM LONGFCTRES(INPUT,OUTPUT);                           
                                                            
TYPE LR = RECORD A,B:INTEGER END;                           
  VAR L: LR;                                                
                                                            
PROCEDURE GETLR: LR;                                        
BEGIN                                                       
 GETLR.A:=30;                                               
 GETLR.B:=40;                                               
END;                                                        
                                                            
BEGIN                                                       
 L:=GETLR;                                                  
 WRITELN(L.A,L.B);                                          
END.