Program Grafik;
 
Uses Crt, Graph;
 
Var    GraphDriver,Mode : integer;
 
Begin
    GraphDriver:=Detect;
    InitGraph (GraphDriver,Mode,'');
    SetBkColor (Black);
    SetColor (white);
    MoveTo (100,100);          {risyem osi koordinat}
    LineTo (150,100);
    LineTo (80,170);
    LineTo (100,100);
    While not keypressed do;{poka ne nagata klavisha gdem}
    CloseGraph;
End.