Проблема с программой, помогите решить. Не выводит результат
var a,i: integer;
b:real;
begin
writeln('Введите значение a: ');
readln (a);
b:=0;
i:=1;
while i<= a do
b:= b+1/i;
writeln('b= ', b);
end.