Desenha casinha (quadrado com triangulo em cima)

program desafio5fvmluisacosta;
{Declarações}

  begin
clrscr; 
ul;
pfrente(200);
pdireita(90);
pfrente(200);
pdireita(90);
pfrente(200);
pdireita(90);
pfrente(200);
un;
pdireita(90);
pfrente(200);
pdireita(30);
ul;
pfrente(200);
pdireita(120);
pfrente(200);
dr;

  end.