Составьте программу, которая рисует отрезок с координатами концов (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.