Необходимо получить в переменной а число 64 используя только операцию умножить три раза нельзя использовать константу ещё две колонны а: =2

Var
a,b,c:real;
begin
Readln(a,b,c);
if a > c then a:= a/2;
if c > b then c:= c-b;
Writeln(a, ' ', b, ' ', c);
end.

Пример:
4 2 3
2 2 1