Как сделать полукруг по горизонтали в паскале АВС?

program ssd;

 uses crt,graph;

 var     d,m:integer;

 begin

 clrscr;

 initgraph(d,m,'');

 arc(200,200,360,180,50);

 line(150,200,250,200);

 readkey; closegraph;

 end.