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

# include <bits\stdc++.h>
using namespace std;
int main()
{
int x[20], y[20];
int i, n;
cin >> n;
for(i = 1; i <= n; ++i)
cin >> x[i] >> y[i];
if(x[i] > 0)
y[i] = x[i];
if(y[i] == 0) 
x[i] = 0;
if(x[i] <= 0)
puts('-1');
else
cout << x[i] << ' ' << y[i];
return 0;
}