Работа с массивами в Паскале

[Юлия_Лебедева]

Ребят помогите Уверена, задание для вас легкое, но для меня, увы, непосильное))
А дело, собственно, вот в чем:



Есть решение чужого подобного задания...

uses Crt;
var
 x,y : array[1..100] of real;
 i,n : byte;
begin
ClrScr;
  write('Размер массивов : ');readln(n);
  writeln('Введите массив X :');
  for i:=1 to  n do
      read(x[i]);
  writeln('Массив Y :');
  for i:=1 to n do
    begin
 if (x[i]*x[i]-2*x[i])<3 then writeln('Нет решений') else
 y[i]:=3/abs(3)*exp((x[i]-4.5)*ln(abs(3)))+sqrt(x[i]*x[i]-2*x[i]-3);
       writeln(y[i]:8:6,' ');
    end;
end.

Судя по всему мои числа подставляются в последнее выражение y[i]:=. Как это сделать?((