Массив А(20) заполнить случайными целыми числами в диапазоне от -30 до

program zz1;
var mas:array[1..20] of integer;
i,k:integer;
begin
for i:=1 to 20 do
mas[i]:=random(61)-30; //наполняем массив 20 рандомными числами из обозначенного диапазона
for i:=1 to 20 do
write(mas[i], ); //выводим массив на экран
writeln; //перебегаем на новейшую строчку для вывода
for i:=1 to 19 do
if (mas[i]*mas[i+1]lt;0) then begin writeln(mas[i],*,mas[i+1],=,mas[i]*mas[i+1]);k:=k+1;end; //проверяем условие, считаем количество подходящих произведений
writeln(количество отысканных творений - ,k); //выводим ответ

end.