Сформируйте массив,содержащий 18 случайных вещественных чисел, принадлежащих промежутку (квадратная скобка)|-3; 2) и подсчитывает сумму положительных чисел. выводит в столбик с двойными десятичными значениями.

Var a:real;
    i:byte;

begin
  randomize;
  for i:=1 to 18 do begin
    a:=random()*random(-3,2);
    writeln(a:2:2)
  end;
end.