Задание выполнить на языке Паскаль, На Паскале двумерный массив статический.Дана

program raf105;

const

 Ns = 3; //Длинна столбца

 Nc = 4; //Длинна строчки

var

 a:array[1..Ns,1..Nc] of real;

 sums,max:real;

 i,j:integer;

begin

 max:= -(9**38);

 for i:=1 to Ns do

 begin

   if sums gt; max

     then max:= sums;

   sums:= 0;

   for j:=1 to Nc do

   begin

     write('Введите значение элемента ',i,' строчки, ',j,' солбца: ');

     readln(a[i,j]);

     sums += a[i,j];

   end;

 end;

 writeln;

 writeln('Наибольшая сумма элементов из одной строчки: ',max);

end.