Написать программу в pascal. высота саженца 20 см. естественный ежегодный прирост 15%. через сколько лет высота достигнет 500 см?

Var h: real;
      n: integer;
begin
   h:=20; n:=0;
   repeat
      h:=h*1.15;
      n:=n+1;
    until h>=500;
    writeln(n,' года');
end.

24 года