Неувязка с программой, помогите решить. Не выводит результатvar a,i: integer;

в цикле

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

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

var

   a, i: integer;  

   b: real;

begin

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

   readln(a);

   b := 0;  

   i := 1;

   while i lt;= a do  

   begin

       b := b + 1 / i;  

       inc(i);

   end;

   writeln('b= ', b);

end.