Всистеме счисления с некоторым основанием число 57 записывается в виде 321 укажите основание

во всех программах у меня будет использоваться процедура swap:

procedure swap(a: ^real; b: ^real); var    t: real; begin    t : = a^;     a^ : = b^;     b^ : = t; end;

swap(x,y) - меняет местами значения x и y.

1.

var    a: array[1..100] of real;     i, j, n: integer;

begin

    readln(n);     for i : = 1 to n do      read(a[i]);     for j : = 1 to (n div 2) - 1 do      for i : = 1 to (n div 2) - j do          swap(a[i], a[i + 1]);     for j : = 1 to (n div 2) - 1 do      for i : = (n div 2) + 1 to n - j do          swap(a[i], a[i + 1]);     for i : = 1 to n do      writeln(a[i])end.

2.

var    a: array[1..100] of real;     i, n: integer;

begin

    readln(n);     for i : = 1 to n do      read(a[i]);     for i : = 1 to n - 1 do      swap(a[i], a[i + 1]);     for i : = 1 to n do      writeln(a[i])end.

3.

var

    a: array[1..100] of real;     i, n: integer;

begin

    readln(n);     for i : = 1 to n do      read(a[i]);     for i : = n downto 2 do        swap(a[i], a[i - 1]);     for i : = 1 to n do      writeln(a[i])end.