program tw25054b; uses uw25054b; var X: Integer; begin end.