Turbo pascal cпортсмен в первый день пробежал x км. каждый следующий день он пробегал на h км. больше, чем в предыдущий. за сколько дней он пробежит n км.?

Var
i:integer;
x,h,n:real;
begin
writeln('Введите x,h и n');
readln(x,h,n);
while x<n do 
begin
x:=x+h;
i:=i+1;
end;
writeln('за ',i,' дней');
end.