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

program deposit;

var N:real; / /объявление переменных: N - размер вклада

i: integer; / / счетчик месяцев

begin

write ('Enter N ');

readln (N) / /ввод размера вклада

for i:=1 to 60 do N:=N+N*0.01; //пять лет = 60 месяцев

writeln ('N = ',' ', N:0:2, ' руб.'); / / вывод размера вклада

end.