program TPAS( INPUT, OUTPUT ) ; begin WRITELN( 'end TPAS' ) ; end.