Функции в Паскале. Примеры

Структура типичной функции в Паскале выглядит так:

Function Имя(формальные_параметры):Тип_Результата;
{Описание локальных переменных}
Begin
. . . .
Имя:=Выражение;
. . . .
End;

Пример. Функция гиперболический синус: Sinh(x)=(ex–e-x)/2

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.