{Bar.PAS}
  ▀▀▀▀▀▀▀▀▀▀▀
  {Sample code for the Bar procedure.}

  uses
    Graph;
  var
    Gd, Gm, I, Width: Integer;
  begin
    Gd := Detect; InitGraph(Gd, Gm, '');
    if GraphResult <> grOk then Halt(1);
    Width := 10;
    for I := 1 to 5 do
      Bar(I*Width, I*10, Succ(I)*Width, 200);
    ReadLn;
    CloseGraph;
  end.