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

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.

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.