Pascal ABC.Массивы.Нахождение значения переменной y?

[grekkk]

Помогите пожалуйста Составить программу для нахождения значение переменной у. Условия в файле
A9 – натуральный логарифм из суммы абсолютных значений элементов массива Х

[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);

[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(x[i]); 
for i:=1 to N do
 A9:= A9 + abs(x[i]);
 A9:= ln(A9);
if A9>3,8 then
y:=A9+exp((-3)*ln(10))*cos(A9)
else
y:=exp(3*ln(A9))+2,5*sqrt(1+A9);
writeln('y=',y:8:3);
end.

Проверяйте. Код не прогонял.