Ответ:

Объяснение:

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.