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

program zz1;
var n, i:integer; // задаем переменные целого типа
s:real;
begin
write(' введите число n ');
read(n); // вводим с клавиатуры число
i:=1;
while i<=n do
begin
s:=s + (i + 1)/i; // вычисляем сумму
inc(i); // увеличиваем переменную
end;
write(' полученный ответ = ', s);
end.
program zz1;
var n, i:integer; // задаем переменные целого типа
s:real;
begin
write(' введите число n ');
read(n); // вводим с клавиатуры число
i:=1;
repeat
s:=s + (i + 1)/i;
inc(i);
until i > n;
write(' полученный ответ = ', s);
end.