Meu primeiro desenho em pascal

program Quadrado;

begin
ul;
pfrente(100);
pdireita(90);
pfrente(100);
pdireita(90);
pfrente(100);
pdireita(90);
pfrente(100);
pdireita(90);
dr;
end.