Составьте программу, которая рисует отрезок с координатами концов (100,100), (100,200), если введено число 1, и рисует окружность с центром (200,100) и радиусом 50, если введено число 2.

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.