Гражданин 1 марта открыл счет в банке, вложив 1000 руб. Через

Const
  s0=100000; начальная сумма в копейках
  p=0.02; величина, одинаковая 1/100 от каждомесячного процента
var
  s,sp:longint;
  mes:integer;
begin
  все расчеты ведем в копейках
  mes:=0; s:=s0;
  while splt;=30*100 do
    begin mes:=mes+1; sp:=Round(s*p); s:=s+sp end;
  Writeln('Месяц ',mes,', сумма процента ',sp/100:0:2,' gt; 30');
  mes:=0; s:=s0;
  while slt;=1200*100 do begin mes:=mes+1; s:=s+Round(s*p) end;
  Writeln('Месяц ',mes,', сумма вклада ',s/100:0:2,
      ' gt; 1200');
end.

Итог исполнения программки:
Месяц 22, сумма процента 30.31 gt; 30
Месяц 10, сумма вклада 1218.98 gt; 1200