Нарисовать куб

uses graph;
var x0,y0,i,j,r:integer;
begin
i:=0;
initgraph(i,j,'');
x0:=getmaxX div 2;
y0:=getmaxY div 2;
setbkcolor(7);
setcolor(8);
r:=20;
setfillstyle(1,8);
for i:=1 to 8 do
 begin
  circle(x0,y0,r*i);
  if i mod 2=0 then
  floodfill(x0+r*i-5,y0,8);
 end;
for i:=1 to 8 do
for j:=1 to 8 do
 begin
  if (i+j) mod 2=0 then
    begin
     setfillstyle(1,7);
     Bar(x0+r*(i-1),y0+r*(j-1),x0+r*i,y0+r*j);
    end
  else
   begin
    setfillstyle(1,8);
    Bar(x0+r*(i-1),y0+r*(j-1),x0+r*i,y0+r*j);
   end;
 end;
setcolor(8);
rectangle(x0,y0,x0+r*8,y0+r*8);
readln
end.

uses crt, graph;
var x,y,a,c:integer;
begin
clrscr;
randomize;
x:=0;
initgraph(x,y,'');
     x:=50;
     y:=50;
     a:=50;
 
 
{передняя}
line(x,y,x*4,y+a);
line(x,y,x,y*4);
line(x,y*4,x*4,y*5);
line(x*4,y*5,x*4,y*2);
 
c:=random(14)+1;
{верхняя}
line(x,y,x*3,0);
line(x*3,0,x*6,y);
line(x*4,y*2,x*6,y);
{нижняя}
line(x*4,y*5,x*6,y*4);
line(x*6,y*4,x*6,y);
readln
end.

uses graph;
var x,y,a,h,c:integer;
begin
randomize;
x:=0;
initgraph(x,y,'');
x:=getmaxX div 2;
y:=round(getmaxY*2/3);
a:=150;
h:=40;
{левая грань}
c:=random(12)+1;
setcolor(c);
line(x,y,x-a+h,y-h);
line(x-a+h,y-h,x-a+h,y-a-h);
line(x-a+h,y-a-h,x,y-a);
line(x,y-a,x,y);
setfillstyle(1,c);
floodfill(x-10,y-h,c);
{правая грань}
c:=c+1;
setcolor(c);
line(x,y,x+a-h,y-h);
line(x+a-h,y-h,x+a-h,y-a-h);
line(x+a-h,y-a-h,x,y-a);
line(x,y-a,x,y);
setfillstyle(1,c);
floodfill(x+10,y-h,c);
{верхняя грань}
c:=c+1;
setcolor(c);
line(x-a+h,y-a-h,x,y-a);
line(x+a-h,y-a-h,x,y-a);
line(x+a-h,y-a-h,x,y-a-2*h);
line(x,y-a-2*h,x-a+h,y-a-h);
setfillstyle(1,c);
floodfill(x,y-a-h,c);
readln
end.