uses crt;
var x,h,k:longint;
begin
clrscr;
   write('Chieu cao cua cay(h)= ');readln(h);
   write('Mot ngay oc xen bo duoc(x): ');readln(x);
   k:=h div x; if x*k<h then inc(k);
   writeln('Oc bo het ',k,' ngay.');
readln
end.
#CHÚC BẠN HỌC TỐT!

program kaito;

uses crt;

var h, x, i, d: integer;

begin

   clrscr;

   write('Nhap chieu cao cay h: '); readln(h);

   write('Nhap do dai moi ngay bo duoc x: '); readln(x);

   while i<=h do begin i:=i+x; d:=d+1; end;

   writeln('Den ngay thu ',d, ' thi oc sen len den ngon cay.');

   readln

end.

CHÚC BẠN HỌC TỐT!!!