Рисуем КУБ

Program CUBE;
Uses GraphABC;
Var
   s : Integer;
Begin
 
SetWindowCaption('Куб');
 
   {Ввод высоты грани куба}
   Readln(s);
   
   {Задание положения и размеров окна}
   SetWindowSize(2 * s, 2 * s);
   CenterWindow;
   
   {Фасад}
   SetPenColor(clGray);
   SetBrushColor(clGreen);
   Rectangle( s div 4, (7 * s) div 4, (5 * s) div 4, (3 * s) div 4 );
   
   {Крыша}
   SetPenColor(clGray);
   Line(s div 4,(3 * s) div 4,(3 * s) div 4, s div 4 );
   
   Line((3 * s) div 4, s div 4,(7 * s) div 4, s div 4 );
   
   Line((7 * s) div 4, s div 4, (5 * s) div 4, (3 * s) div 4 );
   
   {Закрашиваем крышу}
   FloodFill((4*s) div 4, (2*s) div 4, clRed);
   
   
   {Рисуем правую стену}
   
   SetPenColor(clGray);
   Line((7 * s) div 4, s div 4,(7 * s) div 4, (5 * s) div 4 );
   
   Line((7 * s) div 4, (5 * s) div 4,(5 * s) div 4, (7 * s) div 4);
   
     
   {Закрашиваем правую стену}
   FloodFill((5*s) div 4, (6*s) div 4, clYellow);
   
    
End.

program CUBE;
uses GraphABC;
var s,w : Integer;
begin
write('Введите длину грани s=');
readln(s);
//Задание положения и размеров окна
SetWindowSize(2*s,2*s);
CenterWindow;
SetWindowCaption('Куб');
//передняя грань
SetPenColor(clGreen);
SetBrushColor(clGreen);
Rectangle( s div 4, 3*s div 4,5*s div 4, 7*s div 4 );
//верхняя грань
SetPenColor(clRed);
line(s div 4,3*s div 4,3*s div 4,s div 4);
line(3*s div 4,s div 4,7*s div 4,s div 4);
line(7*s div 4,s div 4,5*s div 4,3*s div 4);
line(5*s div 4,3*s div 4,s div 4,3*s div 4);
floodfill(s div 4+5,3*s div 4-2,clRed);
//правая грань
SetPenColor(clYellow);
line(7*s div 4,s div 4,5*s div 4,3*s div 4);
line(5*s div 4,3*s div 4,5*s div 4,7*s div 4);
line(5*s div 4,7*s div 4,7*s div 4,5*s div 4);
line(7*s div 4,5*s div 4,7*s div 4,s div 4);
floodfill(5*s div 4+5,7*s div 4-10,clYellow);
end.