Нарисовать куб. Передний левый угол куба имеет координаты (X, Y), длина ребра A. Закрасить верхнюю грань в случайный цвет, а в правой грани провести диагонали — Pascal(Паскаль)

uses graph;
var x,y,a,c:integer;
begin
randomize;
x:=0;
initgraph(x,y,'');
x:=100;
y:=200;
a:=100;
{передняя грань}
rectangle(x,y,x+a,y+a);
c:=random(14)+1;
{верхняя грань}
setcolor(c);
line(x,y,x+a,y);
line(x,y,x+a div 2,y-a div 2);
line(x+a div 2,y-a div 2,x+a div 2+a,y-a div 2);
line(x+a div 2+a,y-a div 2,x+a,y);
setfillstyle(1,c);
floodfill(x+50,y-5,c);
{боковая грань}
setcolor(15);
line(x+a div 2+a,y-a div 2,x+a div 2+a,y-a div 2+a);
line(x+a div 2+a,y-a div 2+a,x+a,y+a);
{диагонали}
line(x+a,y+a,x+a div 2+a,y-a div 2);
line(x+a,y,x+a div 2+a,y+a div 2);
readln
end.