Вообщем вот сама задача (на картинке)
Найти значение суммы без использование массива!

Мой код:

Нажмите для просмотра прикрепленного файла
Препод говорит построение неправильно? хоть и считает значение но не то. говорит формула y не там? еше некоторые ошибки! Пршу помощь професионалов пожалуйста!

ну кто нибудь плиз отзовитесь! прошу!

Смотри, при первой итерации согласно программе j=5, x_j=x₅=2,13. Правда странно?

Или перед началом цикла вычисли x₄ и присвой его xj, а в цикле сразу xj:=xj+dx, а потом y:=y+... безо всяких условий.
Или в самом цикле вычисляй xj как член арифметической прогрессии xj:=x1+(j-1)*dx.

И ещё, постарайся отформатировать код. Форматированный код говорит о внимательном отношении к работе, уважении тех, кто будет читать.

const
  x1=2.13;
  dx=0.4;
Var
  xj,y : real;
  j    : integer;
Begin
  xj:=x1;
  y:=0;
  For j:=2 to 24 do
  begin
    xj:=xj+dx;
    if (j>4) then Y:=y+sqr(xj+dx)/(2+xj);
  end;
  Writeln('y=',y:0:3);
end.

Проверьте результат: 132.325