Разработать алгоритм и программу нисходящим способом, предполагая заданной матрицу А из 5 строк и 5 столбцов или одномерные массивы указанной длины.Кроме матрицы А, даны элементы последовательности B1,В2..,В5. Если для каждой строки матрицы А сумма её элементов (Рi) меньше соответствующего элемента последовательности (Bi), присвоить всем элементам последовательности значения по правилу: Bi=Pi — Pascal(Паскаль)

uses crt;
const a:array[1..5,1..5] of byte=((1,2,3,4,5),
                                  (6,7,8,9,10),
                                  (11,12,13,14,15),
                                  (16,17,18,19,20),
                                  (21,22,23,24,25));
      b:array[1..5] of byte=(10,50,40,100,130);
var i,j,p:integer;
begin
clrscr;
writeln('Matrica:');
for i:=1 to 5 do
  begin
    for j:=1 to 5 do
    write(a[i,j]:4);
    writeln;
  end;
writeln;
writeln('Massiv:');
for i:=1 to 5 do
write(b[i],' ');
writeln;
writeln;
writeln('Rezultat:');
for i:=1 to 5 do
  begin
    p:=0;
    for j:=1 to 5 do
    p:=p+a[i,j];
    if p<b[i] then b[i]:=p;
    write(b[i],' ');
  end;
readln
end.