Program
Solução;
Procedure
RAIZ (N: integer):
forward;
Function
MEDIA (X: real):
real: forward;
Procedure
CALCULA (X,Y: real);
Var
P: real
Begin
...
RAIZ (A)
P:= MEDIA(P)
End;
{de CALCULA}
Procedure
RAIZ; {não se colocam os parâmetros}
Begin;
...
End;
Function
MEDIA;
Begin;
...
End;
Begin
{do principal}
...
End.{de
Solução}
|