Miscellany

public class XY 
begin
   var x: integer; 
   var y: integer; 

  constructor XY();
  begin
  end;

  procedure setX(xx: integer);
  begin 
    x := xx;
  end;

  procedure setY(yy: integer);
  begin 
    y := yy;
  end;

   function getX(): integer;
   begin 
    result := x;
   end;

   function getY(): integer;
   begin 
    result := y;
  end;

end;

var p:array [1..3] of XY;
begin
writeln('start');
p[0] := new XY();
p[0] .setX(250);
p[0] .setY(250);
movemouse(p[0].getX,p[0].getY);
writeln('end');
end.