Salut a tous les développeurs

J’ai un problème avec l exécution de ce petit programme qui crée un segment de 3 dimensions
Voici le code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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);
 Readln;
 CloseGraph;
readln;
end.
En plus tous les programmes que j’écris avec l’unité Graph ne marche pas

Et merci d’avance pour votre aide .