program p1;
uses graphabc;
var a,k,k2: integer;
begin
readln(a);
a: =a*20;
setpenwidth(1); //размер кисти, если большой, то лучше видно пунктир, маленький - качество и точность
setwindowsize(4*a,3*a);
k: =round(a/2);
k2:
=round(0.43*a);
rectangle(a,a+k,2*a,2*a+k); //прямоугольник - передняя часть куба
line(a,a+k,a+k2,a); // левое верхнее ребро
line(2*a,a+k,2*a+k2,a); //правое верхнее ребро
line(2*a,2*a+k,2*a+k2,2*a); //правое нижнее ребро
line(a+k2,a,2*a+k2,a); // заднее верхнее
ребро
line(2*a+k2,a,2*a+k2,2*a); //правое заднее ребро
setpenstyle(psdash); // выбрать тип пера - пунктир
line(a+k2,a,a+k2,2*a); //заднее левое ребро
line(a,2*a+k,a+k2,2*a); //нижнее левое ребро
line(a+k2,2*a,2*a+k2,2*a); //заднее нижнее ребро
end. (программа по
созданию кубов если тебе понравился мой ответ ставь ! )
