Um desenho no PascaL

Meu primeiro desenho no PascaL acredito ter sido um quadrado 100x100, durante a primeira aula de Programação em que tivemos acesso ao programa.

Já o cubo 3x3x3 ao lado (infelizmente sem cores) pode ser desenhado no PascaL através dos códigos abaixo.

program cubo;

begin

clrscr;

ul;

pfrente(120);

pdireita(90);

pfrente(120);

pdireita(90);

pfrente(120);

pdireita(90);

pfrente(120);

pdireita(45);

pfrente(60);

pdireita(45);

pfrente(120);

pdireita(90);

pfrente(120);

pdireita(45);

pfrente(60);

pdireita(135);

pfrente(120);

pdireita(45);

pfrente(60);

pdireita(180);

pfrente(60);

pesquerda(45);

pfrente(40);

pdireita(90);

pfrente(120);

pesquerda(90);

pfrente(40);

pesquerda(90);

pfrente(120);

pesquerda(45);

pfrente(60);

pesquerda(45);

pfrente(40);

pesquerda(45);

pesquerda(90);

pfrente(60);

pdireita(135);

pfrente(40);

pdireita(45);

pfrente(40);

pdireita(135);

pfrente(120);

pdireita(45);

pfrente(20);

pdireita(135);

pfrente(120);

pesquerda(90);

pfrente(120);

pdireita(135);

pfrente(20);

pdireita(45);

pfrente(120);

pdireita(135);

pfrente(40);

pdireita(45);

pfrente(40);

pesquerda(90);

pfrente(120);

pdireita(90);

pfrente(40);

pdireita(90);

pfrente(120);

pdireita(45);

pfrente(60);

pdireita(45);

pfrente(40);

pdireita(135);

pfrente(60);

dr;

end.