Подпрограммы - Turbo Pascal (248953)

uses crt;
const n=5;
type mtr=array [1..n,1..n] of integer;
const a:mtr=((3,4,1,6,2),
            (1,5,1,6,7),
            (5,4,2,7,1),
            (4,5,1,7,3),
            (1,8,2,4,3));
function sum:integer;
var i,j:byte;
    s:integer;
begin
s:=0;
for i:=1 to n do
if odd(i) then
for j:=1 to n do
s:=s+a[i,j];
sum :=s;
end;
procedure ymm (q,z:mtr; var c:mtr);
var i,j,k:byte;
begin
for i:=1 to n do
for j:=1 to n do
 begin
  c[i,j]:=0;
  for k:=1 to n do
  c[i,j]:=c[i,j]+q[i,k]*z[k,j];
 end;
end;
var i,j:integer;
    q,z,c:mtr;
begin
clrscr;
writeln('Matrica A');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln
 end;
writeln('Symma elementov v nechetnich strokah=',sum);
write('Nazhmite enter');
readln;
clrscr;
writeln('Matrica Q');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    q[i,j]:=random(5)+1;
    write(q[i,j]:4);
   end;
  writeln
 end;
writeln('Matrica Z');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    z[i,j]:=random(5)+1;
    write(z[i,j]:4);
   end;
  writeln
 end;
ymm (q,z,c);
writeln('Matrica C=Q*Z');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(c[i,j]:4);
  writeln
 end;
readln;
end.