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

Держите.

Vars: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.