var
  a: array[1..10] of integer;
  i: integer;
  kor: real;
begin
  {создаем массив a}
  for i:= 1 to 10 do
    begin
      a[i]:= random(100);
      write(a[i]:3);
    end;
  writeln;
  {ищем корни кубические и выводим элементы}
  for i:= 1 to 10 do
   begin
    if a[i] > 0 then
      kor:= Exp(Ln(a[i]) / 3)
    else
      if a[i] = 0 then
        kor:= 0
      else
        kor:= -Exp(Ln(-a[i]) / 3);
    if Frac(kor) = 0 then
      writeln(a[i]: 3);
   end;
end.