Meu primeiro desenho em PascaL

Um dos primeiros desenhos que eu criei no PascaL foi este cubo que está abaixo:

O código fonte utilizado para gerar este desenho segue abaixo:

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.