Банк начисляет 2% годовых. Составьте программу определения, какой станет сумма вклада S, положенная в банк на N лет. Значения S и N вводятся с клавиатуры.

program zz1;

var i, n:integer; / / задаем переменные целого типа

s:real; / / задаем переменную не целого типа

begin

write (' введите сумму вклада '); / / вводим с клавиатуры число

read (S);

write (' введите количество лет '); / / вводим с клавиатуры число

read (n);

for i:=1 to n do / / организуем цикл, в котором переберем все годы

begin

s:=s + s * 2/100; / / начисляем процент и прибавляем его к сумме капитала

end;

writeln (' стоимость капитала = ', s:10:2); / / выводим ответ в формате два знака после запятой

end.