Помогите! Составить блок-схему и программуСбербанк начисляет…

Думаю так var i, n: integer; s: real; begin write ('S N? '); readln (s, n); for i: =1 to n do s: =s*1,02; writeln (s: 0:2); readln end. А проще без цикла: var n: integer; s: real; begin write ('S N? '); readln (s, n); writeln (s*exp (n*ln (1,02): 0:2); readln end. А на русском языке программы не составляют. Pascal, C, C+