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

Я не экономист и не экстрасенс, так что если именно сама формула подсчета дохода неверна - меняйте сами, я ее просто нашла в интернете.

var
vklad, dohod, summa, stavka: real;
srok: integer;
begin
write(Величина вклада (р.) - );
readln(vklad);
write(Срок вклада (дней) - );
readln(srok);
write(Годовая процентная ставка (%) - );
readln(stavka);
dohod := (vklad*stavka)/(100*365) * srok;
summa := vklad + dohod;
writeln(Доход: , Trunc(dohod), р., frac(dohod)*100:3:0, коп.);
writeln(Сумма по окончании срока вклада: , Trunc(summa), р., Frac(summa)*100:3:0, коп.);
end.