напишите пожалуйста программу. Дано натуральное N. Вычислить: 2/1+3/2+...+(n+1)/n заранее спасибо. (turbopascal)

это все надо вычислить в цикле (всю программу писать не буду) :
var i, s: integer;
s := 0;
for i:=1 to n do
begin
s := s + (i+1)/i;
end;