Сформируйте массив,содержащий 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.