Meu primeiro desenho em PascaL

program programa8;
begin
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.