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.
