Desenha cubo

program cubo;
{Declarações}

  begin
pfrente(150);
pdireita(90);
pfrente(150);
pdireita(90);
pfrente(150);
pdireita(90);
pfrente(150);
pdireita(45);
pfrente(40);
pdireita(45);
pfrente(150);
pdireita(90);
pfrente(150);
pdireita(90);
pfrente(150);
pdireita(90);
pfrente(150);
pdireita(180);
un;
pfrente(150);
pdireita(45);
ul;
pfrente(40);
pesquerda(135);
un;
pfrente(150);
pesquerda(45);
ul;
pfrente(40);
un;
pesquerda(45);
pfrente(150);
pesquerda(135);
ul;
pfrente(40);
dr;
  end.