MEU PRIMEIRO DESENHO EM PASCAL

program programa8;
{Declarações}

begin
{comandos}
clrscr;
ul;
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);
dr;
end.