Паскаль! нач. уровень.
с использованием while

гражданин 1 марта открыл счет в банке вложив 1000 руб. через каждый месяц размер вклада увеличивается на 2% от имеющейся суммы.
определить:
1)сколько денег будет на счете через 6 мес;
2) через сколько месяцев размер вклада превысит 1200 руб.;
3) за какой месяц величина ежемесячного вклада превысит 50 руб.

program t;

var

a,c:real;

i:integer;

begin

i:=1;

a:=1000;

write('1');

while(i<>6) do

 begin

  a:=a+a*(2*0.01);

  inc(i);    

 end;

writeln('Спустя ',i,' месяцев =',a:4:2);

a:=1000;

i:=1;

write('2');

while(true) do

 begin

  a:=a+a*(2*0.01);

  inc(i);

  if(a>1200)then begin writeln('Через ',i); break; end;

 end;

a:=1000;

c:=0;

i:=1;

write('3');

while(true) do

 begin

  c:=a*(2*0.01);

  a:=a+c;

  inc(i);

  if(c>50) then begin writeln('через ',i,' месяцев'); break; end;

 end;

end.