ABC Pascal. Помогите написать програму без цикла и масивов задача на картинке + код есть но нужно править

ABC Pascal. Помогите написать програму без цикла и масивов задача на картинке + код есть но нужно править
Pascal Abc проблема з програмой

Вот код:
program laba5_3;
const x1=2.13;
dx=0.4;
var
x,y,u:real;
j:interger;
x:=x1;
for j=5 to 24 do
begin
u:=sqr(xj+dx)/(2+xj);
If i>4 then begin
y:=y+u;
x:=x+dx;
end;
end;
writeln('y=' , y:6:2);
End.

  • бред на бреде сидит и бредом погоняет ((

    xj откуда возникло и где инициализировано?
    и нафига оно не наращивается а только каждый раз в u запихивается сумма его неизвестного значения с dx?
    (раз уж xj, то зачем x1 хоть и криво но выделено в константу? )
    откуда вдруг i? и с какого бодуна оно сравнивается с 4?

    ну и всякие мелочи типа кривого алгоритма и кривых заголовков и описаний..