Нужно решить 3 этих задания на паскале,даю 50 баллов.Оооочень нужно,ребят,помогите

на фото только одно задание.

проверок на ошибки ввода конечно нету. предполагается, что пользователь вводит корректные данные

program bank;const tax = 0.18;var summ, amount : real; period : real;begin write('Введите сумму вклада: '); readln(summ); write('Введите срок вклада (мес): '); readln(period); period := period/12; amount := summ * period * tax; writeln('Процент по вкладу составит: ', amount:7:2);end. пример работы программы: Введите сумму вклада: 1000 Введите срок вклада (мес): 18 Процент по вкладу составит: 270.00