Question

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

Answer 1

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