Pascal. (через операторы цикла while и repeat) вычислить 2/1+3/2+4/3++(n+1)/n

Var sum,a,n:real; 
begin 
sum:=0; 
a:=1; 
writeln('Введите n'); 
read(n); 
n:=n+1; 
repeat 
sum:=sum+(a+1)/a; 
a:=a+1; 
until a=n; 
writeln(sum); 
end.