Написать программу в 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 года