Поделитесь своими знаниями, ответьте на вопрос:
Переведите данную программу с 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])