Нарисовать куб, чтобы были видны только его грани

uses graphABC;
var x,y,a,d:integer;
begin
a:=200;
d:=100;
x:=(windowwidth-a-d)div 2;
y:=windowheight-(windowheight-a-d)div 2;
setpenwidth(3);
setbrushstyle(bsClear);
//ïåðåäíèå
rectangle(x+d,y-a-d,x+a+d,y-d);
//ñðåäíèå
line(x,y-a,x+d,y-a-d);
line(x+a+d,y-a-d,x+a,y-a);
line(x+a,y,x+a+d,y-d);
line(x,y,x+d,y-d);
//çàäíèå
rectangle(x,y,x+a,y-a);
end.

uses graphABC,crt;
procedure kub(c1,c2,c3:integer);
var x,y,a,d:integer;
begin
a:=200;
d:=100;
x:=(windowwidth-a-d)div 2;
y:=windowheight-(windowheight-a-d)div 2;
setbrushstyle(bsClear);
setpenwidth(3);
//передние
setpencolor(c1);
rectangle(x,y,x+a,y-a);
//средние
setpencolor(c2);
line(x,y-a,x+d,y-a-d);
line(x+a+d,y-a-d,x+a,y-a);
line(x+a,y,x+a+d,y-d);
line(x,y,x+d,y-d);
//задние
setpencolor(c3);
rectangle(x+d,y-a-d,x+a+d,y-d);
end;
var k:char;
begin
hidecursor;
textout(50,20,'Выделить ребра');
textout(50,40,'1 - передние');
textout(50,60,'2 - боковые');
textout(50,80,'3 - задние');
textout(50,100,'другое - выход');
kub(clBlack,clBlack,clBlack);
repeat
k:=readkey;
case k of
#49:kub(clRed,clBlack,clBlack);
#50:kub(clBlack,clRed,clBlack);
#51:kub(clBlack,clBlack,clRed);
else exit
end;
until not(k in [#49..#51]);
end.