Помогите с информатикой, пожалуйста ((Допустим, вы получили наследие 1 000 000

1) Нам необходимо вычислить на сколько месяцев хватит наследия. Для этого нужно поделить 1 000 000 на 1500. Мы получим кол-во месяцев, на которое хватит средств

2) Так как в году 12 месяцев, мы обязаны поделить полученное кол-во месяцев на 12.

program inheritance;

var

money, per_month, years, month: real;   //объявим переменные

begin

money := 1000000;  

per_month := 1500;

month := money / per_month;  // посчитаем на сколько месяцев хватит наследства

years := month/12;   // посчитаем на сколько лет хватит наследства

writeln('Наследия хватит на ', years, ' лет');   // выведем данные на экран

end.

Если необходимо округлить число, то в предпоследней строчке напишите "writeln('Наследия хватит на ', Round(years), ' лет');" (округление в великую сторону), или "writeln('Наследия хватит на ', Int(years), ' лет');" (округление в наименьшую сторону)