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

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.