make.pas

PASCAL光盘资料PASCAL光盘资料PASCAL光盘资料

const minx = 0;
      maxx = 40000;
      miny = 0;
      maxy = 40000;		

var i,j,n:longint;
		
begin
    assign(output,'Nearest.in');
    rewrite(output);
    randomize;
    read(n);
    writeln(n);
    for i:=1 to n do
        writeln(minx+random(maxx-minx+1),' ',miny+random(maxy-miny+1));
    close(output);
end.