Funcion Mousein
Observacin : Este comando slo funciona en Modo Grfico
    Uses crt,dos,mouse,graph;
     Var
       a,b:Integer;
     begin
         initgraph(a,b,'');
         initmouse;
         activarmouse;
         repeat
               rectangle(0,0,10,10);
               OutTextXY(15,0,'Posesiona el Mouse en el cuadro');
               if mousein(0,0,10,10)=True then
               begin
                    SetBkColor(red);
               end;
               if mousein(0,0,10,10)=false then
               begin
                    SetBkColor(0);
               end;
         until mousepresion=true;
     end.
