//PascalABC.NET версия 3.4.0.1677 от 17.06.18

//Если программа не запускается, то обновите версию

begin

   var m := ReadReal('Сумма =');

   var n := ReadInteger('Кол-во лет =');

   for var i := 1 to n do  

       m := m * (100+30)/100;

   PrintLn(m);

end.

Verified answer

An=m*(1+30%/100%*n)

An=m* 1,3n

An=1,3mn