Дракон собирает золотые монеты, при этом каждый день у него остановиться вдвое больше монет . если 1января у него было 5монет, то сколько у него было 10января?

Bn=5*2^(9-1)=5*256=1280

1 января - 5 монет
2 января - 5 + 5*2 = 50 монет
3 января - 50 + 50*2 = 150 монет
4 января - 150 + 150*2 = 450 монет
5 января - 450 + 450*2 = 1350 монет
6 января - 1350 + 1350*2 = 4050 монет
7 января - 4050 + 4050*2 = 12 150 монет
8 января - 12150 + 12150*2 = 36 450 монет
9 января - 36 450 + 36 450*2 = 109 350 монет
10 января - 109 350 + 109 350*2 = 328 050 монет.

PROGRAM B05;
VAR
    a,b:integer;

BEGIN
  writeln('a). Введите два целых числа');
  write('Первое число: '); readln(a);
  write('Второе число: '); readln(b);
 
  if (a=b) then
    writeln('Числа равны.')
  else if (a<b) then
    writeln('Наименьшее число = ', a)
  else
    writeln('Наименьшее число = ', b);
  writeln('');

  write('б). Введите число: '); readln(a);
  if (a>0) then begin
    b:=a-30;
    writeln('Число неотрицательное. ', a,'-30=',b);
  end else if (a<0) then begin
    b:=a+70;
    writeln('Число отрицательное. ', a,'+70=',b);
  end else
    writeln('Число равно 0');
  writeln('');
 
  write('с). Введите целое число: '); readln(a);
  if odd(a) then
    writeln('Число ', a,' нечетное')
  else
    writeln('Число ', a,' четное');

END.

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var k:=20;
  var a:=ArrRandom(k,-50,50); a.Println;
  var n:=ReadInteger('Введите число циклических сдвигов влево:') mod k;
  if n>0 then a:=(a[n:]+a[:n]).ToArray;
  a.Println
end.

Примеры
-31 -27 -45 21 -49 14 -40 21 -13 -45 6 -44 -17 -12 9 4 25 -22 -11 35
Введите число циклических сдвигов влево: 5
14 -40 21 -13 -45 6 -44 -17 -12 9 4 25 -22 -11 35 -31 -27 -45 21 -49

-22 14 25 3 -12 -46 -12 -32 -12 -23 8 -44 -8 42 16 9 -8 33 -22 43
Введите число циклических сдвигов влево: 0
-22 14 25 3 -12 -46 -12 -32 -12 -23 8 -44 -8 42 16 9 -8 33 -22 43

-18 -42 10 48 -41 -32 -29 19 39 49 44 -1 15 -19 -32 -35 36 -6 -38 38
Введите число циклических сдвигов влево: 21
-42 10 48 -41 -32 -29 19 39 49 44 -1 15 -19 -32 -35 36 -6 -38 38 -18

-36 42 29 0 -43 -33 -17 46 -34 7 -6 -20 -30 19 -30 36 43 -22 -44 -44
Введите число циклических сдвигов влево: -1
-36 42 29 0 -43 -33 -17 46 -34 7 -6 -20 -30 19 -30 36 43 -22 -44 -44