Составить программу (Turbo Pascal) вычисления величины дохода по вкладу. Процентная ставка (в процентах годовых) и время хранения (в днях) задаются во время работы программы. Ниже представлен рекомендуемый вид диалога во время работы программы. Данные, вводимые пользователем, выделены жирным шрифтом.Величина вклада (р.) - 25000Срок вклада (дней) - 30Годовая процентная ставка (%) - 12Доход: 252 р. 80 коп.Сумма по окончании срока вклада: 25252 р. 80 коп.

Предыдущий
вопрос Следующий
вопрос

program DepositIncome;
var
depositAmount, depositDays, annualInterestRate: real;
income, finalAmount: real;
begin
writeln('Введите величину вклада (рубли): ');
readln(depositAmount);
writeln('Введите срок вклада (дни): ');
readln(depositDays);
writeln('Введите годовую процентную ставку (%): ');
readln(annualInterestRate);
income := depositAmount * annualInterestRate / 100 * depositDays / 365;
finalAmount := depositAmount + income;
writeln('Доход: ', round(income):0:0, ' р. ', round((income - round(income)) * 100):0, ' коп.');
writeln('Сумма по окончании срока вклада: ', round(finalAmount):0:0, ' р. ', round((finalAmount - round(finalAmount)) * 100):0, ' коп.');
end.

Пример работы программы:

Введите величину вклада (рубли):
25000
Введите срок вклада (дни):
30
Введите годовую процентную ставку (%):
12
Доход: 252 р. 80 коп.
Сумма по окончании срока вклада: 25252 р. 80 коп.