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.