Program CrazyCoder;

var a: array [1..10] of integer; // возьмем массив из 10 чисел
    i,x      :byte;
begin
  randomize;
  for i:=1 to 10 do //заполняем исходный массив случайными числами (до 10)
  begin
    a[i]:=random(10)-5;
    write (' ' ,a[i]);
  end;
  writeln ();
  for i:=1 to 10 do
  begin
        if (a[i] < 0) and (a[i] mod 2 <> 0 ) then
          a[i]:=a[i]*a[i];
          write ( ' ',a[i]);
  end;
end.