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.