algoritmo ()
{
inteiro i;
inteiro j;
i := 1;
j := 1;
repita
escreva (i);
repita ( j > 3 )
escreva(j);
j := j + 1;
} ate ( j > 3 );
i := i + 1;
}
ate ( i > 3 );