СрочноПомогите решить, пожалуйста 2 программу

Question

Срочно
Помогите решить, пожалуйста 2 программу

---

Answer 1

var x, s: real;
begin
    read(x);
    for var i := 1 to 17 do begin
        s += (i*sqrt(x))/(x + i + 2);
    end;
    write(s);
end.

Answer 2

Var
x, sum: integer;
begin
sum := 0;
write('Set x: ');
read(x);
for var k := 1 to 17 do sum += (k * \sqrt(x)) / (x + k + 2);
write('Sum: ',sum);
end.