Экскаватор вырыл котлован объемом v м^3 земли. в первый день он вынул д м^3, а в последующие дни он вынимал на 1м^3 больше. за сколько дней был вырыт котлован?

//PascalABS.net

var v,d,n:integer;
begin
writeln('Объем котлована')
readln(v);
writeln('Производительность эскаватора в первый день');
readln(d);
n:=0;
repeat
  v:=v-d;
  d:=d+1;
  n:=n+1;
until v<=0;
writeln( n, 'Дней ушло на рытьё котлована');
end.