Составьте программу, которая формирует массив, содержащий 16 случайных вещественных чисел, принадлежащих промежутку [-2;3] и подсчитывает сумму отрицательных чисел. Вывод в столбец с двумя десятичными знаками. Только Паскаль ABC!

Program Program1;vari:integer;sum:real;a:array [1..16] of real;beginrandomize;for i:=1 to 16 dobegina[i]:=-2 + Random * 5;writeln('a[',i,']=',a[i]:0:2);end;sum:=0;for i:=1 to 16 doif a[i]<0 then sum:=sum+a[i];writeln('Сумма отрицательных чисел равна',sum:0:2);end.