Дробную часть перемножить и отделить от целой 52 раза - Pascal ABC

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

Здравствуйте столкнулся с такой проблемой,что мне нужно дробную часть перемножить и отделить от целой 52 раза( или допустим еще больше/меньше), при этом записать в окно ввода только целую часть. Но проблема заключается в том, что или сиди с калькулятором и считай сам n раз или прописывай алгоритм в 52 раза, из-за того что цикл for не хочет работать с дробными числами. примерный код:

var
x1,x2,x3,x4,x5,x6,x7:real;
begin
x1:=0.285;
x2:=x1*2;
x3:=frac(x2);
x4:=x3 - x2;
writeln(x4);
x5:=x3*2;
x6:=frac(x5);
x7:= x5 - x6;
writeln(x7);
end.

Решение задачи: «Дробную часть перемножить и отделить от целой 52 раза»

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

var
   i:integer;
   x1:real;
begin
x1:=0.285;
for i:=1 to 52 do
  begin
    x1:=x1*2;
    writeln(int(x1));
    x1:=frac(x1);
  end;
end.

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

В данном коде используется язык программирования Pascal ABC.

Переменная i инициализируется значением 1.
Переменная x1 инициализируется значением 0.285.
Запускается цикл for, который выполняется 52 раза.
Внутри цикла значение переменной x1 умножается на 2.
Результат умножения выводится на экран в виде целого числа.
Значение переменной x1 сбрасывается до дробной части.
Цикл повторяется 52 раза.