entier $tab[10];

main()
entier $a;
{
$a=0;
tantque $a < 10 faire{
$tab[$a] = $a;
$a = $a + 1;
}
$a = 0;
tantque $a < 10 faire{
ecrire($tab[$a]);
$a = $a + 1;
}
}