Недавнее содержимое от grekkk

Я тут начал,а закончить не могу(((((((помогите program qq; const n=4; var x: array [1..N]of integer; s,i: integer; A9,y: real; begin for i:=1 to n do readln; s:=0; for i:=1 to n do s:=s+x[i]; end; s:=0 for i:=1 to N do A9:= A9 + abs(x[i]); A9:= ln(A9);

Pascal ABC. Массивы. Нахождение значения переменной Y Народ помогите пожалуйста.Буду признателен за помощь.Составить программу для нахождения значение переменной y.Условия в файле A9 – натуральный логарифм из суммы абсолютных значений элементов массива Х