Question

с помощью датчика случайных чисел получить 15 вещественных чисел n 38<n<39

Answer 1

var
  i: byte;

begin
  for i := 1 to 15 do
    write(38 + random(), ' ');
end.