program naturalK; var k,i:integer; s:real; begin readln(k); for i:=1 to k do s:=s+(i+1)/(2*i); writeln(s); end. {по всем вопросам и заданиям обращайся сюда: https://vk.com/pascalwriters}