Составить программу получения с помощью датчика случайных чисел: двадцать не отрицательных действительных чисел, не превосходящих 40 — Pascal(Паскаль)

var
d:array[1..20] of real;
i:integer;
begin
   for i:=1 to 20 do
           begin
             d[i]:=39+1/(1+random(19))-random(39);
             write(d[i]:3:2,'  ');
           end;
        
 end.