Meu Primeiro Desenho no PASCALL

pra quem quiser tentar este desenho no pascal, basta inserir os códigos abaixo para fazê-lo aparecer em sua tela....

pfrente(100);

pdireita(90);

pfrente(100);

pdireita(90);

pfrente(100);

pdireita(90);

pfrente(100);

pdireita(60);

pfrente(50);

pdireita(30);

pfrente(100);

pdireita(150);

pfrente(50);

pdireita(-60);

un;

pfrente(100);

ul;

pdireita(-120);

pfrente(50);

pdireita(-60);

pfrente(100);

pdireita(90);

un;

pfrente(100);

ul;

pdireita(-90);

pfrente(100);

pdireita(-90);

pfrente(100);

un;

pfrente(-100);

ul;

pdireita(150);

pfrente(50);

abraços....