Miscellany

program nesveikas;
type masyvas = array [1..3,1..3] of integer;
var A, B, C : masyvas;
    i : integer ;
  procedure daugyba (var x, y, z : masyvas);
    var i,j,k,l,sum : integer;
    sum:=0;
    begin
        for i:=1 to 3 do
            for j:=1 to 3 do
                for k:=1 to 3 do
                begin
                    for l:=1 to 3 do
                        begin
                            sum:=sum+x[i][l]*y[l][i];
                        end;
                    z[i][k]:=sum ;
                end;
    end;
  begin
    for i:=1 to 3 do
        for i:=j to 3 do
            read(A[i][j]);
    for i:=1 to 3 do
        for i:=j to 3 do
            read(B[i][j]);
    daugyba(A, B, C);
    readln(i);
end.