Переведите данную программу с python на паскаль
a = []
n = 50
for i in range(0, n):
a.append(int(input()))
k = 0
m = 0
for i in range(n-1):
if (a[i]+a[i+1])>0:
k +=1
if (a[i]+a[i+1])<0:
m +=1
for i in range(n):
if a[i]%2==0:
a[i] = k
else: a[i] = m
print(a[i])