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.