Сочините стих про информационную безопасность в интернете(только придумайте сами) ​

Const n=3; m=4; var a: array [1..n,1..m] of integer;     k,sum,min,i,j: integer; begin randomize; writeln(': '); for i: =1 to n do begin   for j: =1 to m do begin     a[i,j]: =random(20)-10;     write(a[i,j]: 6);   end;   writeln; end; // а k: =0; for j: =1 to m do   if a[3,j]< 0 then k: =k+1; writeln('k=',k); // б sum: =0; for i: =1 to n do   for j: =1 to m do sum: =sum+a[i,j]; writeln('sum=',sum); // в min: =a[1,1]; for i: =2 to n do   if a[i,1]< min then min: =a[i,1]; writeln('min=',min); end.

//pascal var   a: array[1..10] of real;   i, count: integer;       begin   count : = 0;     write('исходный массив: ');     for i : = 1 to 10 do   begin         {генерация}       a[i] : = random(200) + random() - 100;             {вывод}       write(a[i] : 0 : 5, ' ');             {проверка}       if (a[i] > -30) and (a[i] < 0) then inc(count);         end;     writeln;   writeln('количество отрицательных элементов, превышающих -30: ', count); end.