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