uses Graph;




var
  Gd, Gm: Integer;




begin
  Gd := Detect;
  InitGraph(Gd, Gm, 'c:\tp\bgi');
  if GraphResult <> grOk then
    Halt(1);
    setcolor(1);
    setbkcolor(15);
    line(80,130,80,200);
    line(80,130,230,130);
    line(230,130,250,60);
    line(250,60,320,60);
    line(320,60,320,130);
    line(320,130,330,130);
    line(330,130,330,200);
    line(80,200,330,200);
    ellipse(330,225,280,90,25,25);
    line(330,250,80,250);
    ellipse(80,225,90,280,25,25);
    line(230,130,320,130);
    line(230,130,230,198);
    line(320,130,320,198);
    rectangle(100,150,200,180);
    line(150,128,150,115);
    line(155,128,155,115);
    rectangle(145,80,165,114);
    circle(80,225,20);
    circle(330,225,20);
    circle(120,240,5);
    circle(140,240,5);
    circle(160,240,5);
    circle(180,240,5);
    circle(200,240,5);
    circle(220,240,5);
    circle(240,240,5);
    circle(260,240,5);
    circle(280,240,5);




    moveto(380,130);
    outtext('A realizat Cojocaru Nicolai');
  Readln;
  CloseGraph;
end.