Составьте пожалуйста программу S=x/2+2x/3+3x/4+(n-1) /n

var S, summa, x: real; n, i: integer; begin s: =0; //Присваиваем начальное значение переменной s writeln ('Введите x'); readln (x); writeln ('Введите n'); readln (n); for i: =2 to n do begin summa: =(i — 1)*x) / i; //Вычисляем значение суммы при текущем i s: =s+summa; //Складываем его с общей суммой end; writeln ('s=', s: 0:5); //Округляем до 5 знаков после запятойend.