Составить программу в паскаль. Вычислить и запомнить значения функции Yi=X , если Xi<0 Yi=0 , если Xi=0 -1 , если Xi≤0 где Xi - элементы массива из 20 элементов

Предыдущий
вопрос Следующий
вопрос

program CalculateY;

var
X: array[1..20] of Integer;
Y: array[1..20] of Integer;
i: Integer;

begin
// Ввод значений массива X
writeln('Введите значения массива X:');
for i := 1 to 20 do
begin
write('X[', i, '] = ');
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('Значения массива Y:');
for i := 1 to 20 do
begin
writeln('Y[', i, '] = ', Y[i]);
end;
end.