Meu Primeiro desenho em Pascal

Um cubo perfeito!
Tudo bem que dei algumas voltinhas mas no final deu tudo certo!
Cubo - desafio 10


program desafio10fvm;
{Declarações}
begin
PFrente(100) ;
PDireita(90);
PFrente(100) ;
PDireita(90);
PFrente(100) ;
PDireita(90);
PFrente(100) ;
PDireita(45);
pfrente(25);
pdireita(45);
PFrente(100) ;
PDireita(90);
PFrente(100) ;
PDireita(90);
PFrente(100) ;
PDireita(90);
PFrente(100) ;
PDireita(90);
pfrente(100);
pdireita(135);
pfrente(25);
pesquerda(45);
pfrente(100);
pesquerda(135);
pfrente(25);
pesquerda(135);
pfrente(100);
pesquerda(45);
pfrente(25);
end.