Люди поже если я не сделаю т мать к стенке прибьёт запишите последовательность действий для выполнения операции , , перетянуть объект " 1. 2. 3. запишите последовательность действий для выполнения операции , , щёлкнуть левую кнопку миши " ( , , выбрать объект " плис help me всем взаранее !

Щрщпшпшпшпшанагашагдалнвднвгдвгдвгвщгвщгвгщвдгадгвщгвщгвщгрнаташавпшпгашашашаша

Var   a: array[1..4,1..4]of integer;   i, j,s: integer; begin   s : = 0;   for i : = 1 to 4 do begin       for j : = 1 to 4 do begin       write('a[',i,',',j,'] = ');           readln(a[i,j]);       end;   end;   for  i: =2 to  4 do     for  j: =1 to i-1 do s: =s+a[i,j];     writeln('сумма элементов под главной диаганалью',s);   end.

1)var a: array[1..4,1..4] of integer;       i,j,s: integer; begin       for i: =1 to 4 do           for j: =1 to 4 do                  readln(a[i,j]);                       for i: =1 to 4 do begin                        writeln();                       for j: =1 to 4 do begin                        write(a[i,j],'  ');                       if (i+j> 5) then s: =s+a[i,j];                           end;                   end; writeln(); write(s); end. 2)var a: array[1..4,1..4] of integer;       i,j,s: integer; begin       for i: =1 to 4 do           for j: =1 to 4 do                  readln(a[i,j]);                       for i: =1 to 4 do begin                        writeln();                       for j: =1 to 4 do begin                        write(a[i,j],'  ');                       if (i> j) then s: =s+a[i,j];                           end;                   end; writeln(); write(s); end.