Здравствуйте, помогите пожалуйста решить задание по информатике: дано вещественное число А. Используя операцию умножения получить А28 за шесть операций.Спасибо

Program Anastas65; var  A,X,Y:integer; begin   write('Введите число A ');   readln(A);   writeln('***         Alphaeus         ***');   writeln('*** Получение А^28 за 6 ходов ***');   X := A*A; // получаем А^2   Y := X*A; // получаем А^3   X := X*X; // получаем А^4   Y := Y*X; // получаем А^7   Y := Y*Y; // получаем А^14   Y := Y*Y; // получаем А^28   writeln('    Результат = ',Y);   writeln('**********************************'); end.