Exemple

Dans l'exemple suivant N et T sont des variables globales, Y et I sont locales à la fonction puissance.

program EXPOSANT ;

var

    N : integer;

    T : real;

    function puissance (X : real; N : integer) : real;

    var

        Y : real;

        I : integer;

    begin { Code de la fonction }

        Y := 1;

        if N > 0 then

            for I := 1 to N do Y := Y * X;

        else

            for I := -1 downto N do Y := Y / X;

        puissance:= Y;

    end; { Fin du code de la fonction }

begin

    readln (T, N);

    writeln (puissance (T, N)); {appel de la fonction }

end.