Заполнить массив случайными числами в интервале от -20 до 44. Посчитать количество отрицательных чисел.

// PascalABC.NET 3.2, сборка 1425 от 22.04.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(ReadInteger('n='),-20,40); a.Println;  Writeln('Кол-во отрицательных: ',a.Where(x->x<0).Count)end.Примерn= 15-1 -10 1 -7 2 4 -10 -5 9 -1 -16 -3 16 -7 6Кол-во отрицательных: 9

uses Crt;Const   N = 13;Var   A:array[1..N] of integer;   i,k:integer;BeginClrScr;Randomize;k:=0;Write('Исходный массив:');For i:= 1 to N do    Begin    A[i]:=random(65)-20;    Write(' ',A[i]);    if A[i] < 0 then k:=k+1    End;WriteLn;WriteLn('Количество отрицательных чисел: ',k);ReadLnEnd.