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