У вас есть некоторая начальная сумма денег. Вы положили в банк эту сумму денег, на 3 года под 20% годовых. Какова будет сумма начисленных процентов через 3 года? составьте программу с ветвлением на Паскаль

Чтобы решить данную задачу, нам нужно написать программу на языке Паскаль, которая будет вычислять сумму начисленных процентов в банке через 3 года под 20% годовых. В этой программе мы запросим ввод начальной суммы и используем ветвление для обработки различных случаев, таких как проверка, является ли введенная сумма положительной. Вот пример программы на Паскале: ```pascal program CalculateInterest; var initialAmount, interestRate, totalAmount, interestEarned: real; begin interestRate := 0.20; { 20% годовых } { Ввод начальной суммы } writeln('Введите начальную сумму денег: '); readln(initialAmount); { Проверка, является ли начальная сумма положительной } if initialAmount > 0 then begin { Расчет общей суммы через 3 года } totalAmount := initialAmount * (1 + interestRate) ** 3; { Расчет начисленных процентов } interestEarned := totalAmount - initialAmount; { Вывод результатов } writeln('Сумма начисленных процентов через 3 года: ', interestEarned:0:2); end else begin writeln('Ошибка: начальная сумма должна быть положительной.'); end; end. ``` ### Объяснение программы: - Мы объявляем переменные для хранения начальной суммы, процентной ставки, общей суммы и начисленных процентов. - Пользователь вводит начальную сумму денег. - Программа проверяет, является ли введенная сумма положительной. Если да, то она вычисляет общую сумму через 3 года, используя формулу для сложных процентов, и затем высчитывает начисленные проценты. - Если введенная сумма не положительная, программа выдает сообщение об ошибке. - В конце выводится сумма начисленных процентов, округленная до двух знаков после запятой.