Циклы. Вычислить сумму.

[sh1p]

№2
Все исходные значения, в случае необходимости, запрашиваются у пользователя. Результат вычислений вывести на экран.
Дано натуральное число N>2. Вычислить

[Naeel Maqsudov]

Код: Выделить всё

var
  s:real;
  n,k,k2:integer;
begin
  write('Введите N:'); readln(N);
  s:=0;
  for k:=2 to N do begin
    k2:=sqr(k);
    s:=s+k2*ln(1+k2);
  end;
  writeln('S=',S:13:3);
end.