Проблема с программой, помогите решить. Не выводит результат
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.

var

   a, i: integer;  

   b: real;

begin

   writeln('Введите значение a: ');  

   readln(a);

   b := 0;  

   i := 1;

   while i <= a do  

   begin

       b := b + 1 / i;  

       inc(i);

   end;

   writeln('b= ', b);

end.

в цикле

while i <= a do b:= b+1/i;

у тебя никак не меняются ни i ни a, поэтому получается бесконечный цикл из которого программа никогда не выйдет.