составьте программу которая формирует массив из 16 случайных чисел от -20 до 20 и подсчитывает количество отрицацельных элементов

PascalABC.NETВерсия 3.3. сборка 1583 (25.11.2017)var  a:array[1..16] of integer;begin var s:=0; for var i:=1 to 16 do  begin   a[i]:=random(-20,20);   write(a[i]:5);   if a[i]<0 then s+=1;  end;  writeln;   Writeln('Кол-во отрицательных чисел в масиве: ',s);end.