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.