Procedure XYZ(parametri formali);
...
Begin
   ...
   XYZ(parametri attuali);
   ...
End;

Function XYZ(parametri formali): Double;
...
Begin
   ...
   x=XYZ(parametri attuali);
   ...
   XYZ:=espr;
End;

Sub XYZ(parametri formali)
   ...
   Call XYZ(parametri attuali)
   ...
End Sub

Function XYZ(parametri formali) As Double
   ...
   x=XYZ(parametri attuali)
   ...
   XYZ=espr
End Function

void XYZ(parametri formali)
{
   ...
   XYZ(parametri attuali);
   ...
}

double XYZ(parametri formali)
{
   ...
   x=XYZ(parametri attuali);
   ...
   return espr;
}