procedure(entier $a)
{
ecrire($a);
}

main()
{
procedure(10);
}