Обладатель авторского права на оис

// pascalabc.net 3.3, сборка 1555 от 21.10.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('количество строк в матрице: ');   var m: =readinteger('количество столбцов в матрице: ');   writeln('вводите элементы матрицы построчно');   var a: =new real[n,m];   var b: =new real[n];   for var i: =0 to n-1 do begin       b[i]: =0;       for var j: =0 to m-1 do begin           read(a[i,j]);           b[i]+=sqr(a[i,j])           end;       b[i]: =sqrt(b[i])       end;   writeln('сформированный вектор');   b.println; end. пример количество строк в матрице: 4 количество столбцов в матрице: 3 вводите элементы матрицы построчно 3.4 5.1 8 -1 0 1 -5.34 1.777 5 3 4 5 сформированный вектор 10.0781942827076 1.4142135623731 7.52816903370268 7.07106781186548