program PascalGuru;
 
var X:array[1..50] of integer;
    n,i,z:integer;
 
begin
 writeln ('Vvedite razmer massiva X:');  read (n);
 writeln ('Vvedite massiv X:');
 for i:=1 to n do begin write ('X[',i,']='); readln (X[i]); end;
 
 write ('Vot vvedennyy vami massiv X: ');
 for i:=1 to n do write (X[i],'  ');   writeln;
 
 for i:=1 to n do
 if X[i]<0 then X[i]:=sqr(X[i]);
 
 writeln;
 write ('Vot massiv X posle izmenenii: ');
 for i:=1 to n do write (X[i],'  ');
 
 readln;
end.