Desenho em Pascal

Meu desenho em Pascal: Com os comandos dados abaixo, é possível desenhar um cubo igual esse.


program desafio9fvmluiz;
begin

pfrente(80);
pdireita(90);
pfrente(80);
pdireita(90);
pfrente(80);
pdireita(90);
pfrente(80);
un;
pdireita(-90);
pfrente(20);
pdireita(-90);
pfrente(20);
ul;
pfrente(80);
pdireita(-90);
pfrente(80);
pdireita(-90);
pfrente(80);
pdireita(-90);
pfrente(80);
pdireita(135);
pfrente(28);
pdireita(45);
un;
pfrente(80);
pdireita(135);
ul;
pfrente(28);
un;
pdireita(-45);
pfrente(80);
pdireita(-135);
ul;
pfrente(28);
un;
pdireita(-135);
pfrente(80);
pdireita(-45);
ul;
pfrente(28);
dr;

end.

Obrigado a todos.