ПОМОГИТЕ СОСТАВИТЬ ПРОГРАММУ!!!ЯЗЫК ПРОГРАММИРОВАНИЯ ПАСКАЛЬ. НУЖНО СРОЧНО!!!

9) var b,m,a,v:integer;

10) var b,m,a,v:integer;beginread(b,m,a);v:=0;while b<=a do   begin   b:=b+m;   v:=v+1;   end;println(v);end. var b,m,a,v:integer;beginread(b,m,a);v:=0;while b<=a do    begin     b:=b*(1+m/100);     v:=v+1;    end;println(v);end.

9)Program n9;var b,m,a: real;k: integer;beginreadln(b,m,a);k:=1;repeatb:=b+b*m/100;k:=k+1;until b>a;write(k);end.10)Program n10;var b,m,a: real;k: integer;beginreadln(b,m,a);k:=1;repeatb:=b+m;k:=k+1;until b>a;write(k);end.