Um dos meus primeiros desenhos no PascaL

Esse é o desenho de um cubo, abaixo segue os comandos necessarios para o programa desenha-lo
e tambem o resultado.
Achei muito legal ter feito ele,quase chorei de emoção quando acabei, e o resultado foi positivo.

program desafio10fvmitalovilareal;
{Declarações}
begin
{Comandos}
clrscr;
ar;
ul;
pdireita(-30);
pfrente(50);
pdireita(30);
pfrente(100);
pdireita(150);
pfrente(50);
pdireita(-60);
pfrente(100);
pdireita(90);
pfrente(100);
pdireita(90);
pfrente(100);
pdireita(90);
pfrente(100);
pdireita(90);
pfrente(100);
pdireita(-120);
pfrente(50);
pdireita(-60);
pfrente(100);
pdireita(-90);
pfrente(100);
pdireita(-90);
pfrente(100);
pdireita(60);
pfrente(50);
ptras(50);
pdireita(-150);
pfrente(100);
dr;
end.
E o resultado é: