Pascal abc вычислить сумму квадратов отрицательных чисел, стоящих на местах, кратных 3; подсчитать количество чисел, не принадлежащих промежутку [а, в).

1. for i := 1 to size do if (i  mod 3 = 0) and (a[ i ] < 0) then s := s + sqr( a[ i ] );
2. for i := 1 to size do if (a[ i ] < v) or (b <= v) then inc(c);