uses graph;
var draiver, mood: integer;
begin
  draiver:=Vga; mood:=VgaMed;
  initgraph(draiver, mood, '');
  circle(200, 100, 50);
  line(200, 100, 200, 300);
  readln;
  closegraph;
end.