Program BAr;
Uses Graph;
Var
Gd, Gm : Integer;
Y0, Y1, Y2, X1, X2 : Integer;
Begin
Gd:=Detect;
InitGraph(Gd, Gm, '');
If GraphResult <> grOk Then Halt(1);
Y0:=10;
Y1:=60;
Y2:=110;
X1:=10;
X2:=50;
Bar3D(X1, Y0, X2, Y1, 10, TopOn);
Bar3D(X1, Y1, X2, Y2, 10, TopOff)...