uses Graph3D;

begin
  var l := Lego(-4,-1,0,8,4,1,Colors.Green);
  Lego(-2,0,0.4,4,2,1,Colors.Blue);
  Lego(-1,0,0.8,1,1,1,Colors.Red);
  Lego(-1,1,0.8,2,1,1,Colors.Yellow);
end.