[Aristarh Dark]

Код:

i:=10000
while i<120084 do
begin
  b:=a+i div 100;
  k*b=1172.32;  //< -- только заметил, странная у тебя конструкция ;)
  inc(i);
end;

типа так?