Объяснение:
Была ошибка в неправильном цикле
Цикл while изпользуеться так:
while a < h do begin
a:= a+1;
b:= b*x;
end;
