var 
  a: array of integer;
  i, n: integer;
begin
  randomize;
  n := Random(10) + 1;
  SetLength(a, n);
  writeln('Исходный массив');
  for i := 0 to n-1 do begin
    a[i] := Random(10);
    write(a[i]:5, ' ');
  end; writeln;
  
  writeln('Возвести в квадрат');
  for i := 0 to n-1 do begin
    a[i] := sqr(a[i]);
    write (a[i]:5, ' ');
  end; writeln;
  
  writeln('Заполнить степенями 2');
  a[n-1] := 1;
  for i := n-2 downto 0 do
    a[i] := a[i+1] shl 1;
    
  for i := 0 to n-1 do write (a[i]:5, ' ');
  writeln;
  
  writeln ('умножить на 3 во второй половине');
  for i := n shr 1 to n-1 do
    a[i] := (a[i] shl 1) + a[i];
    
  for i := 0 to n-1 do write (a[i]:5, ' ');
  writeln;
end.