скильки гетьманив було в украини хто вони

0.02 - это 2% в десятичной дроби 1ый месяц 10000*0.02=200 +ещё 10000, которые уже в банке =10200 каждый раз умножаем полученное число +10000 на 0.02 ниже смысл тот же, в общем умножаете и к полученному числу добавляете то число, которое умножали на 0.02 2ой месяц 10200*0.02=204 10404 3ий месяц 10404*0.02=208.08 10612.08 4ый месяц 10612.08*0.02=212.24 10824.32 5ый месяц 10824.32*0.02=216.48 11040.80 6ой месяц 11040.80*0.02=220.81 11261.61 7ой месяц 11261.61*0.02=225.23 11486.84 8ой месяц 11486.84*0.02=229.73 11716.57 9ый месяц 11716.57*0.02=234.33 11950.90 10ый месяц 11950.90*0.02=239.01 12189.91 11ый месяц 12189.91*0.02=243.79 12433.70 12ый месяц 12433.70*0.02=248.67 12682.37 13ый месяц 12682.37*0.02=253.64 12936.01 14ый месяц 12936.01*0.02=258.72 13194.73 15ый месяц 13194.73*0.02=263.89 13458.62 16ый месяц 13458.62*0.02=269.17 13727.79 17ый месяц 13727.79*0.02=274.55 14002.34 18ый месяц 14002.34*0.02=280.04 14282.38 19ый месяц 14282.38*0.02=285.64 14567.02 20ый месяц 14567.02*0.02=291.36 14858.38 21ый месяц 14858.38*0.02=297.16 15155.54 ОТВЕТ ЧЕРЕЗ 21 МЕСЯЦ.

Const n=5;
var 
a:array[1..n,1..n] of integer;
b:array[1..n] of integer;
i,j,max,min,s:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
   a[i,j]:=random(21);
   write(a[i,j]:4);
  end;
  writeln;
 end;
max:=a[1,n];
for i:=2 to n do
  if a[i,n-i+1]>max then max:=a[i,n-i+1];
writeln('1. max = ',max);
for i:=1 to n do
 begin
 min:=a[i,1];
 for j:=2 to n do
  if a[i,j]<min then min:=a[i,j];
 b[i]:=min;
 end;
s:=0;
writeln('2. Массив B');
for i:=1 to n do 
 begin
 write(b[i]:4);
 s:=s+b[i];
 end;
writeln;
writeln('3. среднее = ',s/n);
for i:=1 to n do 
 if b[i]>s/n then write(b[i]:4);
writeln;
end.

Пример:
Исходный массив:
  10  19  15  17  10
  12  12  10   1   5
  17   8   8  14  15
  12  11   8   0  13
   2   2   4  10   6
1. max = 11
2. Массив B
  10   1   8   0   2
3. среднее = 4.2
  10   8