Вычисление гиперболического синуса оформить в виде подпрограммы-процедуры - Pascal

Формулировка задачи:

Добрый вечер.Сегодня задали задание,что то я никак вникнуть не могу каким образом все это организовать=).Условие ЖПостроить табл. функций z=sh(x+y) где x[1;2];шаг х=0.2,у[2;3], шаг у= 0.1.Гиперболический синус вычисляется по формуле sh(r)=(e^r-e^-r)/2.Вычисление гиперболического синуса оформить в виде подпрограммы-процедуры.А вторая задача :Даны 2 матрици а(3,3) и Б(4,4) используя подпрограмму функцию вычислить сумму элементов нижних треугольных матриц=).Заранее благодарю за потраченное вами время.

Решение задачи: «Вычисление гиперболического синуса оформить в виде подпрограммы-процедуры»

Листинг программы

program na_zakaz;
uses crt;
 
type mm=array[1..10,1..10]of integer;
var a,b:mm;
    i,j:integer;
 
function SummLDTriag(m:mm;n:integer):integer;
var i,j,s:integer;
begin
 s:=0;
 for i:=1 to n do
 for j:=1 to i do
 s:=s+m[i,j];
 SummLDTriag:=s;
end;
 
function SummRDTriag(m:mm;n:integer):integer;
var i,j,s:integer;
begin
 s:=0;
 for i:=1 to n do
 for j:=n downto n-i+1 do
 s:=s+m[i,j];
 SummRDTriag:=s;
end;
 
 
begin
 randomize;
 clrscr;
 
 for i:=1 to 3 do
 for j:=1 to 3 do
 a[i,j]:=random(5);
 
 writeln('Bazovaya matrica A(3,3):');
 for i:=1 to 3 do
 begin
  for j:=1 to 3 do write(a[i,j]:2,' ');
  writeln;
 end;
 
 for i:=1 to 4 do
 for j:=1 to 4 do
 b[i,j]:=random(5);
 
 writeln('Summa elementov nizhnei levoi treug. matrici A=',SummLDTriag(a,3));
 writeln('Summa elementov nizhnei pravoi treug. matrici A=',SummRDTriag(a,3));
 
 writeln('Bazovaya matrica B(4,4):');
 for i:=1 to 4 do
 begin
  for j:=1 to 4 do write(b[i,j]:2,' ');
  writeln;
 end;
 
 writeln('Summa elementov nizhnei levoi treug. matrici B=',SummLDTriag(b,4));
 writeln('Summa elementov nizhnei pravoi treug. matrici B=',SummRDTriag(b,4));
 readln;
end.

Объяснение кода листинга программы

Создается тип данных mm, который представляет собой массив целых чисел размером от 1 до 10 на 10.
Создаются две переменные a и b, которые представляют собой массивы целых чисел размером 10х10.
Создаются две функции SummLDTriag и SummRDTriag, которые вычисляют сумму элементов в заданном подмассиве.
В основной программе генерируются случайные числа для заполнения матрицы a и b.
Выводятся базовые матрицы A и B и их суммы элементов.
Программа завершается после ввода пользователем любой клавиши.