Выводится на экран последовательность 20 случайных чисел из промежутка [-10,10]. Определить количество отрицательных чисел больших -5 в данной последовательности.

uses crt;vara:array[1..20]of integer;i,k:integer;beginfor i:=1 to 20 doa[i]:=random (20)-10;for i:=1 to 20 dowrite(a[i],' ');for i:=1 to 20 do beginif (a[i]<0) and (a[i]>-5)then k:=k+1;end;writeln;writeln('кол-во отрицательных чисел больше -5=',k)end.