var
i: byte;
n: real;
begin
write('Введите сумму вклада: ');
read(n);
for i:=1 to 12 do
begin
n:=round(n*1.02);
writeln('Размер вклада через ', i, ' месяцев: ', n, ' рублей.');
end;
end.