Царь кощей все свои богатства разместил в швейцарском банке. ему обещали, что каждый год он будет получать прибыль 13%. сколько лет придется прожить бессмертному, чтобы накопить на личный самолет? написать программу используя данные строчки кода: var begin end writeln readln while … do repeat … until

Program Money;

var
  n: integer;
  m, need: real;
begin
  writeln('Введите кол-во денег Кощея');
  readln(m);
  writeln('Введите стоимость самолёта');
  readln(need);
  while m < need do begin 
    m := m + 0,13 * m;
    inc(n);
  end;
  writeln('Нужное кол-во лет - ', n);
end;