Составьте алгоритм безопасной работы в интернете (не менее 20 пунктов) заранее )​

Сделал все! ) поставь наилучшее! 1)var a: array [0..5] of integer;     i,j: integer; begin  randomize;   j: =0; for i: =0 to 5 do   a[i]: =random(100); for i: =0 to 5 do   if a[i] mod 3 =0 then  inc(j); writeln(j); readln; 2)var a: array [0..5] of integer;     i,j: integer; begin   randomize;   j: =0; for i: =0 to 5 do  a[i]: =random(100); for i: =0 to 5 do   if a[i] mod 2 =0 then    j: =j+a[i]; writeln(j); readln; 3)a: array [0..5] of integer;     i,s: integer; begin randomize; s: =1; for i: =0 to 5 do  a[i]: =random(9)+1; for i: =0 to 5 do  if i mod 2 < > 0 then    s: =s*a[i]; writeln(s); readln; end.4)const n=5; m=5; var a: array [0..n,0..m] of integer;     i,j: integer; begin  randomize; for i: =0 to n do for j: =0 to m do   a[i,j]: =random(100);   for i: =0 to n do  begin    writeln;     for j: =0 to m do    write(a[i,j]: 3);   end; for i: =0 to n do for j: =0 to m do  begin   if a[i,j] mod 2 =0 then  a[i,j]: =2   else if a[i,j] mod 2 < > 0 then    a[i,j]: =1; end; writeln;   for i: =0 to n do   begin    writeln;   for j: =0 to m do    write(a[i,j]: 3);   end; readln; end. 5)const n=5; m=5; var a: array [0..n,0..m] of integer;     i,j: integer; begin    randomize; for i: =0 to n do for j: =0 to m do   a[i,j]: =random(10);   for i: =0 to n do   begin    writeln;   for j: =0 to m do  write(a[i,j]: 3);   end; for i: =0 to n do for j: =0 to m do a[i,j]: =a[i,j]*2; writeln;   for i: =0 to n do  begin    writeln;     for j: =0 to m do    write(a[i,j]: 3);     end; readln; end.

Вразделе описаний добавь еще одну переменную с типа integer и вместо последних 9-ти строк твоей программы должно быть: {заполняем массив b минимальными элементами каждой строки} for i  : = 1 to 5 do   begin           for j  : = 1 to 5 do  if a[i,j] < b[i] then b[i] : = a[i,j];         write(b[i], ' ')   end; writeln; {сортируем массив b} for i : = 1 to 4 do   for i+1 : = 1 to 5 do       if b[i] < b[j] then         begin               c : = b[i];               b[i] : = b[j];               b[j] : = c         end; {выводим отсортированный массив на экран} for i : = i to 5 do write(b[i], ' '); writeln end.