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

//Pascal ABC.NET 3.1 сборка 1256

Var 
x,s,i:integer;
begin
randomize;
s:=0;
i:=0;
while s begin
  inc(i);
  x:=random(150001);
  s:=s+x;
  writeln(Месяц:,i,, своровал:,x,, сумма на текущий момент:,s);
 end;
writeln(Res=,i);
end.