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

var k,b:integer;x,v:real;begin v:=1000;repeat v:=v*1.02; inc(k) until v>1200;x:=0;repeat beginv:=v+x;x:=v*0.02;inc(b);end;until x>=30;writeln('Через ',b,' месяцев велечина ежемесячного вклада привысит 30 Руб.');writeln('Через ',k,' месяцев размер вклада будет больше 1200 Руб.');end.