program masuvu_1_6; {$APPTYPE CONSOLE} uses SysUtils; var a:array[1..10000] of integer ; i,n:integer; begin readln(n); for i:=1 to n do begin readln(a[i]); if a[i]<0 then a[i]:=sqr(a[i]); end; for i:=1 to n do writeln(a[i]); readln; end.