{ (c) 1998 CREEQ <creeq@web.de> }
program BMW_Logo;
uses Crt, Graph;
var
  Gd, Gm: Integer;
begin
  Gd := Detect;
  InitGraph(Gd, Gm, '');
  if GraphResult <> grOk then
    Halt(1);
  setcolor(white);
  circle(320,250,200);
  line(320,50,320,450);
  line(120,250,520,250);
  setfillstyle(solidfill, white);
  floodfill(300,70,white);
  floodfill(400,270,white);
  setfillstyle(solidfill, lightblue);
  floodfill(300,270,white);
  floodfill(400,70,white);
  Readkey;
  CloseGraph;
end.