Пример. Функция гиперболический синус:

Function Sinh(X:Real):Real;
begin
 Sinh:=(Exp(X)-Exp(-X))/2;
end;

Пример. Сумма элементов нескольких массивов.

Program Count_Sum;
 const
 Nmax=200;
type
 Mas=array[1..Nmax] of real;
var
 A,B:Mas;
 Suma,Sumb:Real;
 i,n:integer;

Function SumMas (k:Integer;X:Mas):Real;
var
 i:integer;
 s:real; {локальная переменная-сумма}
begin
 s:=0;
 for i:=1 to k do s:=s+X[i];
 SumMas:=S;
end; {SumMas}

{Основная программа}
begin
 writeln(’Введите размер массивов’);
 readLn(n);
 writeln(’Введите первый массив’);
 for i:=1 to n do
   readln (A[i]);
 writeln(’Введите второй массив’);
 for i:=1 to n do readln (B[i]);
 Suma:=SumMas(n,A);
 Sumb:=SumMas(n,B);
 writeln(’Сумма чисел 1-го массива =’,Suma:8:2);
 writeln(’Сумма чисел 2-го массива =’,Sumb:8:2);
 writeLn(’Нажмите клавишу ENTER’);
 readln;
end.

---