Meu primeiro Desenho em PascaL

program desafio8;

begin

clrscr;

at;

pdireita(90);

pfrente(30);

pdireita(-90);

pfrente(30);

pdireita(90);

pfrente(30);

pdireita(90);

pfrente(30);

pdireita(-90);

pfrente(30);

pdireita(-90);

pfrente(30);

pdireita(90);

pfrente(30);

pdireita(90);

pfrente(30);

pdireita(-90);

pfrente(30);

dt;

end.