Program lab4;
uses graph, crt;
var
	x, y, a, c, Driver, Mode:integer;
	
begin
	Driver := detect;
	Mode := VGA;
	InitGraph(Driver, Mode, 'C:\FPC\2.2.0\bin\i386-win32');
	clrscr;
	x:=200;
	y:=200;
	a:=100;
	c:=20;
	
	{основание нижнее}
    setcolor(15);
    line(x,y,x+a,y);
    line(x+a,y, x+a+a div 2, y-a div 2);
    line(x,y,x+a div 2, y-a div 2);
    line (x+a div 2, y-a div 2, x+a+a div 2, y-a div 2 );
    {Верхнее основание}
    line(x,y-a, x+a, y-a);
    line(x+a,y-a, x+a+a div 2, y-a-a div 2);
    line(x,y-a,x+a div 2, y-a-a div 2);
    line (x+a div 2, y-a-a div 2, x+a+a div 2, y-a-a div 2 );

    {передняя грань}
	line(x,y,x, y-a);
	line(x+a,y, x+a, y-a);

    {боковая грань }
	line (x+ a div 2, y-a div 2, x+ a div 2, y -a div 2 -a);

    {боковая грань 2 }
	line (x+a+ a div 2, y-a div 2, x+a+a div 2, y-a div 2 -a);
	
	readln;
	CloseGraph;
end.