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.