Написать программу на паскаль. двумерный массив заполнить рандомно. найти номера первых отрицательных элементов каждой строки(столбца)

//Pascal ABC.NET v3.1 сборка 1172

Const
 n=4;

Var
 ma:array[1..n,1..n] of integer;
 i,j:integer;
begin
 randomize;
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     ma[i,j]:=random(50)-20;
     write(ma[i,j]:4);
    end;
  writeln;
  end;
  writeln('Сторки:');
  for i:=1 to n do
  begin
  write(i,':');
   for j:=1 to n do
    if ma[i,j]<0 then
     begin
      writeln(j);
      break;
     end;
     writeln;
   end;
  writeln('Столбцы:');
  for j:=1 to n do
  begin
  write(j,':');
   for i:=1 to n do
    if ma[i,j]<0 then
     begin
      writeln(i);
      break;
     end;
     writeln;
  end;
end.

Всемирная паутина (сокращенно world wide web или www) — это единство информационных ресурсов, которые связаны между собой средствами телекоммуникаций и основаны на гипертекстовом представлении данных, разбросанных по всему миру. годом рождения всемирной паутины считается 1989 год. именно в этом году тим бернерс-ли предложил общий гипертекстовый проект, который получил впоследствии название всемирной паутины. создатель «паутины» тим бернес-ли, работая в лаборатории элементарных частиц европейского центра ядерных исследований «cern» в женеве (швейцария) , совместно с партнером робертом кайо занимались проблемами применения идей гипертекста для построения информационной среды, которая бы обмен информацией между . итогом данной работы явился документ, в котором рассматривались понятия, имеющие принципиальное значение для «паутины» в ее современном виде, и были предложены идентификаторы uri, протокол httr и язык html. без данных технологий уже нельзя представить современный интернет. бернерс-ли создал первый в мире веб-сервер и первый в мире гипертекстовый веб-браузер. на первом в мире веб-сайте он описал, что такое всемирная паутина и как установить веб-сервер, как использовать браузер и т. п. этот сайт являлся и первым в мире интернет-каталогом. начиная с 1994 года самые главные по развитию всемирной паутины взял на себя консорциум всемирной паутины (world wide web consortium, wзс) , который организовал и до сих пор возглавляет ким бернес-ли. консорциум разрабатывает и внедряет технологические стандарты для интернета и всемирной паутины. миссия wзс : «полностью раскрыть потенциал всемирной паутины, путем создания протоколов и принципов, гарантирующих развитие сети» . wзс разрабатывает «рекомендации» , что бы достичь совместимость между программными продуктами и аппаратурой различных компаний, что делает всемирную сеть более совершенной, универсальной и удобной. все рекомендации, которые разрабатывает консорциум всемирной паутины открыты, то есть не защищены патентами и могут внедряться любым человеком без всяких финансовых отчислений консорциуму.

// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018

var c, w: integer;

procedure check;

begin

 var (a, b) := (Random(0, 20), Random(0, 20));

 Print($'{a}*{b}=');

 if a * b = ReadInteger then begin inc(c); Println('Правильно') end

 else begin inc(w); Println('Неправильно') end;

end;

procedure res;

begin

 Println($'Задано вопросов {c+w}');

 Println($'Правильных {c}({(c*100)/(c+w):f1}%)');

 Println($'Неправильных {w}({(w*100)/(c+w):f1}%)');

end;

begin

 var start := true;

 while start do

 begin

   Println('Проверим?(0/1)');  

   if ReadInteger = 0 then

   begin start := false; res; end

   else check;

 end;

end.

Пример в приложении.