Developing.ru

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

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.