Meu primeiro desenho em PascaL

Código:

begin
{Comandos}
ul;
pfrente(250);
pdireita(90);
pfrente(250);
pdireita(90);
pfrente(250);
pdireita(90);
pfrente(250);
pdireita(45);
pfrente(50);
pdireita(45);
pfrente(250);
pdireita(90);
pfrente(250);
pdireita(90);
pfrente(250);
pdireita(90);
pfrente(250);
un;
pdireita(90);
pfrente(250);
pdireita(135);
ul;
pfrente(50);
pdireita(-45);
pfrente(250);
pdireita(-135);
ul;
pfrente(50);
pdireita(-135);
pfrente(250);
pdireita(-45);
pfrente(50);
dr;

end.