Program eger;
uses mouse,crt;
var event:TMouseEvent; {egy eger esemenyt tarolhatunk benne}
begin
 initmouse;
 while true do
 begin
      while(PollMouseEvent(event))do {amig van egeresemeny}
      begin
         GetMouseEvent(event); {hogy ki is szedje}
         write(event.x, ' ', event.y, ' ' );
         if (event.buttons and MouseLeftButton <> 0) then write('bal lenyomva, ');
         if (event.buttons and MouseRightButton <> 0) then write('jobb lenyomva, ');
         if (event.buttons and MouseMiddleButton <> 0) then write('kozep lenyomva,');
         if (event.action = MouseActionDown) then write('lenyomas ');
         if (event.action = MouseActionUp) then write('felengedes ');
         if (event.action = MouseActionMove) then write('mozgatas ');
         writeln;
      end;
     delay(300);
 end;
 donemouse;
end.