Um dos meus desenhos em Pascal

Este é um dos meus desenhos em Pascal, foi bem trabalhoso para fazer porque tem muitos códigos, mas o resultado final dá um grande alívio.. é o desenho do cubo. Abaixo segue m os códigos utilizados para fazê- lo e ao lado o desenho formado.

ar;
pfrente(100);
pdireita(90);
pfrente(100);
pdireita(90);
pfrente(100);
pdireita(90);
pfrente(100);
pdireita(90);
pfrente(100);
pdireita(90);
pfrente(50);
pdireita(90);
pfrente(50);
pdireita(90);
pesquerda(90);
pesquerda(90);
pfrente(50);
pfrente(50);
pesquerda(90);
pfrente(100);
pesquerda(90);
pfrente(100);
pesquerda(90);
pfrente(50);
ptras(50);
pdireita(45);
pfrente(50);
pfrente(10);
pfrente(10);
pesquerda(45);
pfrente(100);
pesquerda(45);
pesquerda(90);
pfrente(70);
pdireita(45);
pfrente(100);
pdireita(90);
pdireita(45);
pfrente(70);
pdireita(90);
pdireita(45);
pfrente(100);
pdireita(45);
pfrente(70);
dr;