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.