Otro (Borland Pascal and Free Pascal):