//PascalABC.NET 3.4.2
begin
write(seqwhile(1000.0, x -> x + (x / 100) * 15, x -> x < 10000).Count + 1);
end.
