entier $a;
main()
{
pour $a=1; $a<10; $a = $a + 1; faire
{
ecrire( $a );
}
}