program GraphFile;
uses
	Graph;
var
	grdriver, grmode, x1, x2, y1, y2, r: integer;
	f: text;
	q: 1..4;
   c: 1..15;
	i, n: integer;
   ch: char;
begin
   grdriver := detect;
   Initgraph(grdriver, grmode, ' ');
   Assign(f, 'c:\bp_rus\bin\zadachi\f.txt');
   Reset(f);
   while not EoF(f) do begin
		Read(f, q);
		case q of
			1: begin
				Read(f, x1, y1, x2, y2);
				Line(x1, y1, x2, y2);
		   end;

			2: begin
				Read(f, x1, y1, x2, y2);
				Rectangle(x1, y1, x2, y2);
		   end;

			3: begin
				Read(f, x1, y1, r);
				Circle(x1, y1, r);
		   end;

			4: begin
				Read(f, n);
				Read(f, x1, y1);
				Moveto(x1, y1);
				for i := 1 to n-1 do
					begin
						Read(f, x2, y2);
				   	Lineto(x2, y2)
					end;
			end;
   	end;
      Readln(f);
	end;
	Close(f);
	Readln;
end.