Запрашивайте у пользователя размер наследства, которое вы бы хотели получить ( в долларах), и сумму денег , которую вы собираетесь тратить в месяц.выведите на экран время (в годах), на которые хватит этого наследства

Var
a,b,c,d:real;
begin
writeln ('введите размер наследства');
read (a);
writeln ('введите трату в месяц');
read (b);
c:=a/(b*12);
Writeln ('наследства хватит',c,'лет');
end.