program CalculateY;

var
X: array$$\mathrm{1..20}$$ of Integer;
Y: array$$\mathrm{1..20}$$ of Integer;
i: Integer;

begin
// Ввод значений массива X
writeln${}^{\prime }ВведитезначениямассиваX{:}^{\prime }$;
for i := 1 to 20 do
begin
write${}^{\prime }X{[}^{\prime },i{,}^{\prime }]{=}^{\prime }$;
readln$X[i]$;
end;

// Вычисление и запоминание значений функции Yi
for i := 1 to 20 do
begin
if X$$i$$ < 0 then
Y$$i$$ := X$$i$$ else if X$$i$$ = 0 then
Y$$i$$ := -1
else
Y$$i$$ := 0;
end;

// Вывод значений массива Y
writeln${}^{\prime }ЗначениямассиваY{:}^{\prime }$;
for i := 1 to 20 do
begin
writeln${}^{\prime }Y{[}^{\prime },i{,}^{\prime }]{=}^{\prime },Y[i]$;
end;
end.