program rajz;
uses graph;
var gd,gm: smallint;  {integer}
begin
  gd := Detect;
  InitGraph(gd, gm, '');
  if GraphResult <> GrOk then begin
    Write('Grafikus hiba');
    Readln;
    Halt(1);
  end;
  SetColor(Green);
  Line(10, 20, 100, 200);
  SetColor(Red);
  Rectangle(5, 15, 105, 205);
  SetColor(Yellow);
  Circle(65, 50, 30);
  PutPixel(65, 50, White);
  Readln;
  CloseGraph;
end.