entier $i;
main()
{
    entier $carre;
    $i = 0;
    tantque $i < 10 faire 
    {
        $carre = $i * $i;
        ecrire( $carre );
        $i = $i + 1;
    }
}