uses crt;
var h, a, b, res, t: longint;
begin
    clrscr;
    write('Mời bạn nhập chiều cao cây: '); readln(h);
    write('Mời bạn nhập quãng đường bò lên: '); readln(a);
    write('Mời bạn nhập quãng đường tụt xuống:'); readln(b);
    
    // Cho lên trước 1 ngày
    res:=1; t:=a;
    while (t < h) do
        begin
            // Tăng số ngày bò lên :))
            inc(res);
            // Tụt xuống :))
            t:=t - b;
            // Cho leo lên :))
            t:=t + a;
        end;
    writeln('Số ngày cần thiết đẻ ốc sên bò lên ngọn cây: ', res);
readln;
end.

- Bonus :))
uses crt;
var h, a, b: longint;
begin
    clrscr;
    write('Mời bạn nhập chiều cao cây: '); readln(h);
    write('Mời bạn nhập quãng đường bò lên: '); readln(a);
    write('Mời bạn nhập quãng đường tụt xuống:'); readln(b);
    
    if a = h then writeln('Số ngày cần thiết đẻ ốc sên bò lên ngọn cây: 1') else
    writeln('Số ngày cần thiết đẻ ốc sên bò lên ngọn cây: ', (h - a - 1) div (a - b) + 2);
readln;
end.

một ngày bò được a mét, trôi xuống b mét => cả ngày bò được (a - b) mét

gọi số ngày là x => (a - b).x = h => x = $\frac{h}{a - b}$ 

* Viết chương trình

program bo;

uses crt;

var a, b, h, x : real ;

begin

clrscr;

write('Moi ban nhap chieu cao cay :');readln(h);

write('Moi ban nhap quang duong bo len:');readln(a);

write('Moi ban nhap quang duong tut xuong :');readln(b);

x := h/(a-b);

writeln('So ngay can thiet de oc sen bo len ngon cay la :', x:8:2);

readln

end.