Мяч упал с высоты H=243 см и, ударяясь о землю, отскакивает вновь, поднимаясь каждый раз на 2/3 высоты, с которой он упал. Определить, через сколько ударов мяч поднимется на высоту Р=32 см- Pascal(Паскаль)

program us;

uses crt;

var
  a: integer;
  h: real;

begin
  clrscr;
  h := 243;
  a := 0;
  while h > 32 do
  begin
    h := 0.66 * h;
    a := a + 1;
  end;
  write(a);
  readln;

end.

var
  x: integer;
  p, h: real;

begin
  h := 243;
  p := h;
  while p <> 32 do
  begin
    p := p * 2 / 3;
    inc(x);
  end;
  write(x);
  readln;

end.