Используя 4 написать программу которая рисует следующую​

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. (программа по
созданию кубов если тебе понравился мой ответ ставь ! )