В банк на трехпроцентный вклад положили S тенге. Какой станет сумма вклада через N лет? (Python) Очень нужно!

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.

Объяснение:

Program z18;  Var a: array [1..1000] of string; i,j,l,min,h:integer; s:string;Begin  write('Введите строку - '); readln(s);  l:=s.Length;  i:= 1;  j:= 1;    while i <= l do  begin    while (s[i] <> ' ') and (i <= l) do    begin      a[j]:=a[j] + s[i];      i:= i + 1;      if (i > l) then break;    end;    j:= j + 1;    i:= i + 1;  end;    i:= 2;  min:=a[1].Length;  while (a[i] <> '') do  begin    l:=a[i].Length;    if (l < min) then h:= i;    i:= i + 1;  end;  writeln(a[h]);End.

Program z19;  Var a: array [1..1000] of string; i,j,l,min:integer; s:string;Begin  write('Введите строку - '); readln(s);  l:=s.Length;  i:= 1;  j:= 1;    while i <= l do  begin    while (s[i] <> ' ') and (i <= l) do    begin      a[j]:=a[j] + s[i];      i:= i + 1;      if (i > l) then break;    end;    j:= j + 1;    i:= i + 1;  end;    i:= 1;  while (a[i] <> '') do  begin    if ((a[i] = 'мое') or (a[i] = 'Мое')) then a[i]:= 'наше';    write(a[i], ' ');    i:= i + 1;  end;End.

В первую очередь, это 4 часть Гражданского кодекса РФ, полностью посвященная возникновению, осуществлению и применению авторских прав.
Касается правоотношений в области использования творческих работ закон «Об информации, информационных технологиях и о защите информации» от 27.07.2006 № 149-ФЗ, определивший порядок пресечения свободного доступа к сведениям, распространяемым с нарушением авторских прав.
Действуют нормативные акты 90-х годов – такие, как закон «Об архитектурной деятельности в РФ» от 17.11.1995 №169-ФЗ и закон СССР «Об изобретениях в СССР» от 31.051991. № 2213-1 (в части, не вступающей в противоречие с принятыми позже законами).