Клиент компании положил на свой счёт некоторую сумму а рублей. ежемесмячно за услуги с него автоматически будут списывать b рублей. через сколько месяцев клиент должен будет пополнить счёт

Var: a,b,i,l:integer;
begin
readln(a,b);
for i:=1 to a do
if (a-b)<0 then l:=l+1;
writeln(l);
end.