Составьте программу, которая рисует отрезок с координатами концов (100,100) , (100,200),…

Uses crt,graph; var n: integer; procedure init; var gd,gm: integer; begin gd: =vga; gm: =vgahi; initgraph (gd,gm,'); end; procedure error; begin closegraph; writeln ('error! '); end; begin write ('Number: '); readln (n); init; if graphresult=0 then begin if n=1 then line (100,100,100,200) else if n=2 then circle (200,100,50); end else error; end.