Meu primeiro desenho em PascaL

program quadrado;


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