Какое количество зерна может покрыть шахматную доску? - Pascal ABC

Формулировка задачи:

По древней легенде мудрец, который изобрел шахматы, потребовал от персидского шаха такое количество пшеницы, чтобы им можно было покрыть шахматную доску, положив на первую клетку 1 зерно, на вторую - 2, на третью - 4 и т.д., т.е. на каждую следующую клетку в два раза больше зерен, чем на предыдущую. Какое количество зерна может покрыть шахматную доску? Считать, что в одном грамме 15 зерен. Результат получить в тоннах.

Решение задачи: «Какое количество зерна может покрыть шахматную доску?»

Листинг программы

var
  x,s: Double;
  i: Integer;
begin
  x:=1.0;
  s:=0.0;
  for i:=1 to 64 do begin
    s:=s+x;
    x:=x*2.0;
  end;
  s:=s/15;
  s:=s/1000000;
  WriteLn(s) // 1229782938247.3
end.

Объяснение кода листинга программы

В данном коде происходит вычисление количества зерна, которое может покрыть шахматную доску.

Переменная x инициализируется значением 1.0.
Переменная s инициализируется значением 0.0.
Запускается цикл for, который выполняется 64 раза (от 1 до 64).
Внутри цикла переменная s увеличивается на сумму x и s.
Переменная x умножается на 2.0.
Цикл повторяется для каждого значения i от 1 до 64.
После завершения цикла значение переменной s делится на 15.
Значение s затем делится на 1000000.
Результат выводится на экран с помощью функции WriteLn().
Выводится значение 1229782938247.3.