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

main()
{
procedure();
}