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