Помогите со 2-ЫМ, нужна программа в Паскале

var

   i, n: integer;

   index: real;

begin

   write ('Количество знаков: ');

   readln (n);

   for i := 1 to n do

       index := index + sqrt(i);

  write(index);

readln

end.