Чиновник,ежемесячно берет взятки в размере Х рублей. Величина Х непостоянная и колеблется от 0 до 150000 рублей. Автомобиль BMW 3 , который хочет купить на взятки чиновник, стоит 1700000 рублей.Напишите программу,которая вычислит,сколько месяцев потребуется чиновнику на сбор нужной суммы.Используя цикл с постусловием

var   x, i: integer;  begin   x := 0;   i := 0;   repeat     i := i + 1;     x := x + random(0, 150000);   until x >= 1700000;   write(i); end.