PRIMEIRO DESENHO NO PASCAL

ESTE FOI MEU PRIMEIRO DESENHO NO PASCAL.

comandos para esse desenho...

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;