Изучая английский язык, студент каждый день учит столько слов, сколько за два предыдущих дня и еще 3 слова дополнительно. Каждые 10 дней студент забывает 5 % выученных слов. Через сколько дней студент будет знать более 1500 слов, если в первый и во второй день он выучил по 6 слов?
Написать программу на PascalABC.NET

//PascalABC.Net 3.1.0.1200var    yesterday, before_yesterday, all, this_day, days: integer;begin    yesterday := 6;    before_yesterday := 6;    all := yesterday + before_yesterday;    days := 2;        repeat        days += 1;        this_day := yesterday + before_yesterday + 3;        all += this_day;        if days mod 10 = 0 then all := trunc(all * 0.95);                before_yesterday := yesterday;        yesterday := this_day;    until all > 1500;        writeln('days = ', days);end.