Fill the array A (20) with random integers in the range from -30 to 30. Find the number N of pairwise

Fill the array A (20) with random integers in the range from -30 to 30. Find the number N of pairwise products A (I) * A (I + 1) Output A, all pairwise products A (I) * A (I + 1) , N.

program zz1;
var mas: array [1..20] of integer;
i, k: integer;
begin
for i: = 1 to 20 do
mas [i]: = random (61) -30; // fill the array with twenty random numbers from the specified range
for i: = 1 to 20 do
write (mas [i], ”); // display the array on the screen
writeln; // go to a new line for output
for i: = 1 to 19 do
if (mas [i] * mas [i + 1] <0) then begin writeln (mas [i], ‘*’, mas [i + 1], ‘=’, mas [i] * mas [i + 1 ]); k: = k + 1; end; // check the condition, count the number of required products
writeln (‘the number of found works -‘, k); // display the answer

end.