задать одномерный массив (В) из 25 вещественных элементов с помощью цикла while

const n=25;var b:array [1..n] of real;    i:integer;begin  writeln('Заданный массив:');  Randomize;  for i:=1 to n do  begin    b[i]:=5*random-2.5;    write(b[i]:6:2);    end;    writeln;end.