Program EsmpioMouse;
Uses Graph,Mouse;
Var X,Y:integer;
Begin
Gd:=detect;
InitGraph(Gd,Gm,’C//:FPC’);
RestetMouse;
SetMouseWindow(0,0,1000,1000);
{Ecco un bottone}
Rectangle(0,0,100,100);
{Diamogli il valore di bottone per il mouse}
X:=GetmouseX;
Y:=GetmouseY;
If ((X>0) and (Y>0) and (X<100) and (Y<100) then
Write(Fine programma);
Readln;
Resetmouse;
End.