В сберкассу на трехпроцентный вклад положили 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.