Question

Вычислить сумму выражений для i от 3 до x.   К сумме прибавить произвольное вещественное число j, вывести результат. 

Answer 1

var
  i, x: integer;
  sum, j: real;
begin
  write('Введите х: ');
  read(x);
  writeln('Введите j: ');
  read(j);
  for i := 3 to x do
    sum := sum + sqr(i) / x + sqrt(j + sqr(i + x));
  writeln('Результат: ', sum);
end.