ОТ
Оля Терентьева
{Дано натуральное N. Вычислить: 2/1+3/2+...+(n+1)/n }
program e5;
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('ввести целое число N--> ');readln(n);
s:=0;
for i:=1 to n do
s:=s+(i+1)/i;
writeln('s= ',s);
writeln('конец задачи ');
readln;
end.