entier $a;

procedure()
{
ecrire(1);
}

main()
{
procedure();
}