Вычисление суммы первых членов

[Juhn]

привет!
Задача: Вычислить в данном порядке сумму первых членов N.
Формула: s=k+1/k2 (k2 - k в квадрате)

Попытаюсь обьяснить в двух словах для лучшего понимания. Компьютер запрашивает число N, например мы указываем 3, это значит что в место К (в формуле) компьютер должен подставить 3 числа, сначала подставит вместо К число 1 и посчитает S, затем число 2, и число 3, и в итоге компьютер должен сложить все 3 S и посчитать конечный результат. Если при запросе N мы указываем число 5, то комьютер должен посчитать сначала подставив вместо К 1, потом 2,3,4,5.
Вот такая задача. Если честно не имею представления как её решить.
Народ если кто - то может помочь, очень прошу напишите. Буду благодарен
Заранее спасибо!
P.S да и ещё было сказано что эту задачу можно решить используя какой - то цикл... С циклом в паскале я тоже не знаком поэтому не знаю.

[Saurona]

readln(n);
s:=0;
for i:=1 to n do
s:=s+i+1/sqr(i);
writeln(s);

вроде так

[_Dmitry]

s:=0;
for k:=1 to N do
  s:=s+k+1/k/k;

Вот это, объяснение "в двух словах"
Если же вы не знаете что такое цикл, то значит вы ничего не знаете о программировании, это основа основ. Читайте книги, практикуйтесь...

[Juhn]

Да с циклом я не знаком, но до понедельника сказали написать программу и + в выводе описать каждую строчку, тоесть обьяснить каждую строку (какая строка что делает и какие команды выполняет)
Ну как я вижу програмка не большая, только мне нужно начиная от var (какие переменные вводить) и обьяснение вот этих строк,написать то я их напишу, а что означают не знаю.
Очень нужно сделать, помогите пожалуйста.
Книгу мне прочитать не помешает и этим я тоже займусь, только тут сроки поджимают :/

[Tayfun]

Вот так посмотришь, хоть новую тему открывай "Вопросы и ответы для новичков"

Program zad1; {Пишеться имя программы или что-то в этом роде}
var {раздел описания переменных}
i,n:integer; {описание переменной типа integer(целые числа)}
s:real; {описание переменной типа real(вещественные)}
begin {основная програма}
readln(n); {вводим значение переменной}
for i:=1 to n do {цикл с шагом 1, от 1 до n}
s:=s+i+1/sqr(i);{считаем сумму первых членов последовательности}
writeln(s);{выводим сумму последовательности}
end.{конец программы}