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

program deposit;var p,s: real;n:integer;beginp:=0;//величина прибавкиs:=1000;//первоначальная суммаn:=0;//число месяцев while p<=30 do //пока прибавка меньше 30 руб.begin p:=s*0.02; //величина месячной прибавки s:=s+p;// прошлая сумма плюс прибавка за текущий месяц n:=n+1;//число месяцевend;writeln(\'Ежемесячное увеличение вклада превысит 30 руб через \',n, \' месяцев\');n:=0; //обнуление счетчика месяцевs:=1000;//восстановление значения первоначального взносаwhile s<=1200 dobegin p:=s*0.02;//Величина месячной прибавки s:=s+p;//прошлая сумма плюс прибавка за текущий месяц n:=n+1;//число месяцевend;writeln(\'Величина вклада превысит 1200 руб через \',n,\' месяцев\');end.