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

Держите.

Var s:real;
i,n:integer;
Begin
Writeln('Введите количество лет и сумму Вашего вклада');
Readln(n,s);
For i:=1 to n do
s:=s+s*0.03;
Write(s); 
Readln;
End.

Var s:real;
i,n:integer;
Begin
Writeln('Введите количество лет и сумму Вашего вклада');
Readln(n,s);
i:=1;
Repeat
s:=s+s*0.03;
inc(i);
Until i>n;
Write(s);
Readln;
end.