var i;

begin
i:=0;
call cvclear;
while 1=1 do
  begin
    call cvclick;
    i:=i+1;
    out:=i;
    call cvclear;
    call cvball(cvx,cvy,10);
  end
end.