Составить функцию, которая определяет, сколько зерен попросил положить на N-ую клетку изобретатель шахмат

program CBoard;
 
var k, p: extended;
    i, j: byte;
 
begin
  write('Enter cell number: ');
  readln(j);
  p := 1;
  k := 1;
  for i := 1 to j - 1 do
    begin
      p := p * 2;
      k := k + p;
    end;
  writeln('Quantity of grains: ', k:20:0);
  readln;
end.

program CBoard;
 
var k: extended;
    i: byte;
 
begin
  write('Enter cell number: ');
  readln(i);
  k := exp(i*ln(2))-1;
  writeln('Quantity of grains: ', k:20:0);
  readln;
end.

program CBoard;
 
var k: extended;
    i: byte;
 
begin
  write('Enter cell number: ');
  readln(i);
  k := exp((i-1)*ln(2));
  writeln('Quantity of grains: ', k:20:0);
  readln;
end.

uses crt;
const max=20;
var a:array[1..max] of byte;//массив цифр
    n,i,j,r,aa,per:byte;
begin
repeat
write('Введите номер клетки от 1 до 64 n=');
read(n);
until n in [1..64];
for i:=1 to max do
a[i]:=0;  //обнулим массив
r:=1;//одна цифра
a[max]:=1;//последняя=1
for i:=1 to n-1 do //возводим 2 в степень n-1 раз
 begin
  per:=0; //перенос
  j:=max; //конец масива
  while (j>=max-r+1)do//пока есть цифры
   begin
    aa:=a[j]*2+per;//умножаем на 2 + перенос
    a[j]:=aa mod 10;//пишем последнюю цифру числа
    per:=aa div 10; //первуюв перенос
    if (per>0)and(j=max-r+1) then inc(r);//если есть перенос и последняя цифра,
                                          // увеличим массив
    dec(j); //к следующей цифре с конца
   end;
 end;
for i:=max-r+1 to max do//выводим полученное число
write(a[i]);
end.