Write(MouseTextCooY(у):2) ;

GotoXY(n+13,3) ;

if b and LeftButtonoO then

Write('нажата ') else

Write('отпущена');

GotoXY(n+13,4) ;

if b and RightButtonoO then

Write('нажата ') else

Write('отпущена');

GotoXY(n+13,5) ;

if NumButton=3 then

if b and CenterButtonOO then

Write('нажата ') else

Write('отпущена');

end {if (bboO) or. .. } end {while TRUE} end.