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.