add(entier $a, entier $b)
{
retour($a + $b);
}

main()
entier $x, entier $y, entier $z;
{
$x = 1;
$y = 2;
$z = 3;
ecrire(add($x,$y,$z));
}