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

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

вы не так поняли. сами 2% должны быть больше 30

var d:integer;c,a:real;begina:=1000;d:=0;while a <=1030 do beginc:=a/100*2;a:=a+c;d:=d+1;end;writeln('величина ежемесячного увеличения вклада превысит 30 руб за ',d,' месяца');end.