Помогите, пожалуйста, со вторым заданием Даю 20 баллов

Вопрос пользователя по предмету Информатика

Помогите, пожалуйста, со вторым заданием
Даю 20 баллов

Ответ учителя по предмету Информатика

var

i,n:integer;

S:real;

begin

readln(n);

for i:=1 to n do

   S:=S+(1/(2*i));

writeln (s:0:2);

end.