Program Chtoto;
Var S, K: real;
Var N, i: integer;
Begin
writeln ('Определение количества денег, полученных во вкладе.');
writeln ('Введите количество денег, под какой процент и на сколько лет сделан вклад.');
readln (S, K, N);
for i:=1 to N do S:=S+S*(K/100);
write ('В конце вклада вы получите', S:12:2);
write (' рублей.')
end.