Помогите напишите задачу и ее решение в паскале.Составить программку для решения

Помогите напишите задачу и ее решение в паскале.

Составить программку для решения последующей задачки:
Гражданин 1 марта открыл счет в банке, вложив 1000 руб. Через каждый месяц размер вклада возрастает на 2% от имеющейся суммы. Определить за какой месяц величина каждомесячного увеличения вклада превзойдет 30 руб.

Тимур Антикайн 2019-09-12 16:55:14

var sum, growth: real; months: integer;begin sum := 1000; months := 0; repeat months := months + 1; growth := sum * 0.02; sum := sum + growth; until growth > 30; writeln('Сумма - ', sum); writeln('Месяцев прошло - ', months); writeln('Номер месяца в году - ', (3 + months - 1) mod 12 + 1);end.