Нужно распределить в две группы: правила поведения и правила техники безопастности

1)
var  massive :
 array [1..100] of integer;
 i : integer;
begin   
 // рандомизируем сид   
 randomize(); 
 for i := 1 to 100 do begin   
 // заполняем массив случайными числами от -100 до 100   
 massive[i] :=  random(201)-100 ;   
 // выводим число, если оно больше нуля и кратно двум. 
 if ((massive[i] > 0) and (massive[i]  mod 2 = 0))   
  then write(massive[i]+' '); 
 end; 
end.

2)
var  a :
 array [1..50] of integer;
 i ,summ: integer; 
begin   
 // рандомизируем сид   
 randomize();   
 // инициализируем переменную суммы   
 summ := 0; 
 for i := 1 to 50 do begin   
  // заполняем массив случайными числами от -100 до 100 
  a[i] := random(201)-100 ;   
  // суммируем если кратно трем   
  if a[i]  mod 3 = 0    then begin summ := summ + 1;  write(a[i] + ' '); end; 
 end; 
 // выводим результат 
 writeln(); 
 writeln('Сумма чисел кратных трем = ' + summ); 
end.

//PascalABC.NET версия 3.3.1590 от 03.12.2017
//Если программа не запускается, то обновите версию

uses GraphABC;
const
    x_min = -15.0;
    x_max = 15.0;
    dx = 0.01;

function f(x: real): real;
begin
    f := 2*x;
end;

begin
    //настраиваем размер окна под график, влияет на маштаб
    Window.Width := 1000;
    Window.Height := 300;
    
    Window.IsFixedSize := True; // фиксируем размеры окна
    Coordinate.Origin := Window.Center; //выставляем начало координат в центр окна
    Coordinate.SetMathematic; //выставляем направление осей как в математике принято
    var scale := Window.Width / (x_max - x_min); // вычисляем маштаб
    
    var x := x_min;
    var y_max := f(x_max); // подставляем реальные значения
    var y_min := f(x_min); // подставляем реальные значения
    
    repeat
        try
            var y := f(x);
            if y > y_max then y_max := y;
            if y < y_min then y_min := y;
        finally
            x := x + dx;
        end;
    until x > x_max;
    
    //  оси координат, стрелочки сами если надо
    Pen.Color := clSilver;
    Line(round((x_min - 1) * scale), 0, round((x_max + 1) * scale), 0);
    Line(0, round((y_min - 1) * scale), 0, round((y_max + 1) * scale));
    Circle(0, round(1 * scale), 1); //единичная метка
    Circle(round(1 * scale), 0, 1); //единичная метка
    
    x := x_min;
    repeat
        try
            var y := f(x);
            PutPixel(round(x * scale), round(y * scale), clBlueViolet);
        finally
            x := x + dx;
        end;
    until x > x_max;
end.