program program01;

uses ptccrt, ptcgraph;
var
	gd, gm : integer;
	x, y, i : integer;
	sz : string;
BEGIN
	gd := detect;
	InitGraph(gd, gm, ' ');
	PTCGraph.Line(0,240,640,240);
	PTCGraph.Line(320,0,320,480);
	for i:= 0 to 18 do begin
		PTCGraph.Line(315,15+i*25,325,15+i*25);
		str(9-i, sz);
		OutTextXY(290, 15+i*25, sz);
	end;
	for i := 0 to 25 do begin
		PTCGraph.Line(20+i*25,235,20+i*25,245);
		str(-12+i, sz);
		outTextXY(16+i*25, 255, sz);
	end;
	ReadKey;
END.