Програма множення двох матриць розміром 2х2 мовою Паскаль

program mnozehya_matriz;
const n=2;
var
a:array[1..n,1..n] of real;
b:array[1..n,1..n] of real;
c:array[1..n,1..n] of real;
i,j: integer;
begin
writeln('    ');
writeln('    ');
writeln('    ');
for i:=1 to 2 do begin
for j:=1 to 2 do begin
a[i,j]:=int(random*10-5);
write(' a[', i, ';', j, ']=', a[i,j]);
writeln('    ');
end;
end;
 for i:=1 to 2 do begin
for j:=1 to 2 do begin
b[i,j]:=int(random*10-3);
write(' b[', i, ';', j, ']=', b[i,j]);
end;
end;
for i:=1 to 2 do begin
for j:=1 to 2 do begin
writeln('    ');

c[1,1]:=a[1,1]*b[1,1]+a[1,2]*b[2,1];
c[1,2]:=a[1,1]*b[2,1]+a[1,2]*b[2,2];
c[2,1]:=a[2,1]*b[1,1]+a[2,2]*b[2,1];
c[2,2]:=a[2,1]*b[1,2]+a[2,2]*b[2,2];
write(' c[', i, ';', j, ']=', c[i,j]);
end;
end;
end.