в сберкассу на трехпроцентный вклад положили s тенге. какой станет сумма вклада через N лет?

program abc;

uses crt;

var i, n:integer;

s:real;

begin

clrscr;

write ('Введеите сумму вклада S = ') ;

readln (s) ;

write ('Введеите количество лет N = ') ;

readln (n) ;

for i:=1 to n do

s:=s+0.03*s;

writeln;

writeln ('Через ', n,' лет сумма вклада составит ', s:1:2,' тенге') ;

end.