Untitled

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;
 
  procedure move();
  begin 
    movemouse(x,y);
  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);
p[0].move();
p[0] .setX(350);
p[0] .setY(350);
p[0].move();
writeln('end');
end.