Cделать на языке паскаль улитка за день залезает вверх по дереву на v м, а за ночь спускается на u м. высота дерева h м. за сколько дней d улитка поднимется на вершину дерева?

Var
  v, u, h, d, vp: longint;

begin
  readln(v, u, h);
  vp := v - u;
  d := h div vp;
  if (h mod vp <> 0) then
    inc(d);
  writeln(d);
end.