program Project4;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils, System.Math;
  var
  arr: array of Integer;
  i,max,b,c: Integer;
  o: Real;
begin
   Randomize;
  SetLength(arr, 8);
  for i:= 1 to 8 do
  begin
    arr[i]:= RandomRange(10, 30);
    Writeln('Элемент ',i, ' = ', arr[i]);
  end;
  Writeln('Новый массив');
  for i:= 1 to 8 do
  begin
   Write(arr[i].ToString[2], ' ');
  end;
  Readln;
end.