Exemple

Ecrire un programme qui calcule le cube d'un nombre réel

program Puissance3 ;

var

unNombre : real;

function cube (x : real) : real;

begin

cube:=x*x*x; { on affecte la valeur à l'identificateur }

end; { Fin du code de la fonction }

begin { Début du programme principal }

readln (unNombre);

writeln ('Le cube de', unNombre,' est : ', cube(unNombre) ;

end. { Fin du programme }

Cette procédure peut être utilisée pour une variable de type :

Vecteur = array[1..Nmax] of real ; Nmax étant une constante définie au préalable.