Парни помогите пожалуйста написать программку (одномерный массив)!

Дано:

a1,a2,a3,a4, x1....x14

Получить B1....B14, где B(i)=((sqr(x[i]))-x[i]-a1)/(x[i]-a1)*

*(((x[i]*x[i]*x[i])-x[i]-a2)/x[i]-a2)*(x[i]-a3)-(((sqr(x[I])*sqr(x[I])-x[i]+a4)/x[i])+x[i]*(x[i]+a3))

Еще раз повторюсь что все надо сделать в 1-м массиве.
Заранее спасибо!

Не фига не понял. А в чём собственно проблема?
Цикл for разве нельзя?

Вопрос в том что написать в разделе var
и что написать в разделе Begin?

var
a,b,x:array[1..14] of real;

Begin


For i:=1 to 14 do
b[i]:= ((sqr(x[i]))-x[i]-a1)/(x[i]-a1)*

*(((x[i]*x[i]*x[i])-x[i]-a2)/x[i]-a2)*(x[i]-a3)-(((sqr(x[I])*sqr(x[I])-x[i]+a4)/x[i])+x[i]*(x[i]+a3))

end

Если выражение перевел правильно - должно отработать, останется только вывести, а это не сложно....

Приведи условие до транспортироки в Паскаль, ради интереса....

Если все в одном массиве, то вот как енто смотрится:

var
a:array[1..18] of integer;
i:integer;

begin
сделал в два цикла для наглядности...
for i:=1 to 4 do
read(a[i]); {ввод а1..а4}
for i:=5 to 18 do
read(a[i]); {ввод х1..х14}

for i:=4 to 18 do
a[i]:=((sqr(a[i]))-a[i]-a[1])/(a[i]-a[1])*(((a[i]*a[i]*a[i])-a[i]-a[2])/a[i]-a[2])*
*(a[i]-a[3])-(((sqr(a[I])*sqr(a[I])-a[i]+a[4])/a[i])+a[i]*(a[i]+a[3]));

for i:=5 to 18 do
write(a[i]:3);
end.