program ringijoonistus;
uses graph;
var draiver, mood: integer;
begin
 draiver:=detect;
 InitGraph(draiver, mood, '');
 circle(400, 100, 20);
 readln;
 closegraph;
end.