type
  mas = array [1..100] of real;

var
  x, h, a: real;
  i, n, j, k, l: integer;
  r: mas;

begin
  repeat
    writeln('Введите 1<=n<=100');
    readln(n);
    if (n < 1) or (n > 100) then
      writeln('Некорректный ввод');
  until (n >= 1) and (n <= 100);
  
  writeln('Введите h и a');
  readln(h, a);
  writeln('Введите х');
  readln(x);
  
  for i := 1 to n do 
    r[i] := 6 * cos(a * x + i * h);
    
  writeln('Массив: ');
  for i := 1 to n do writeln(r[i]); {Найденный массив}
  
  k := 0;
  
  for i := n downto 1 do
    if r[i] < 0 then begin k := i; break end;
  
  i := k - 1;
  
  while i > 0 do
  begin
    if (r[i] > 0) then
    begin
      j := i;
      while j <= n - 1 do
      begin
        r[j] := r[j + 1];
        j += 1
      end;
      n -= 1;
    end;
    i -= 1;
  end;
  
  Writeln;
  Writeln('Новый массив:');
  for i := 1 to n do Writeln(r[i]);
end.