В сберкассу на трехпроцентный вклад положили S рублей. Какой станет сумма вклада…

Держите.Vars: real; i,n: integer; BeginWriteln ('Введите количество лет и сумму Вашего вклада'); Readln (n,s); For i: =1 to n dos: =s+s*0,03; Write (s); Readln; End.___________Var s: real; i,n: integer; BeginWriteln ('Введите количество лет и сумму Вашего вклада'); Readln (n,s); i: =1; Repeats: =s+s*0,03; inc (i); Until i>n; Write (s); Readln; end.