Вбанк был положен вклад в размере n рублей.каждый месяц он увеличивался на 1%.определить размер вклада через 5 лет

VAR
   n: Real;
   i, j: Byte;
BEGIN
   Read(n);
   
   for i := 1 to 5 do
      for j := 1 to 12 do
         n := n * 1.01;
   
   Write(n);
END.