Найти все такие n (n ≤100), что у числа n! сумма цифр – квадрат целого числа.

program EqualSequences;
const
  MAX_NUMBERS = 5;{количество элементов в массиве}
type
  TArray = array[ 1..MAX_NUMBERS ] of integer;{тип - массив}
procedure InputArray( var Arr : TArray );
{процедура ввода массива Arr}
var
  i : integer;{счетчик}
begin
  for i := 1 to MAX_NUMBERS do{для каждого элемента массива}
    read( Arr[ i ] );{читаем очередной элемент}
  readln;{ждем entera}
end;
procedure PrintArray( var Arr : TArray );
{процедура печати массива}
var
  i : integer;{счетчик}
begin
  for i := 1 to MAX_NUMBERS - 1 do{для каждого элемента массива, кроме последнего}
    write( Arr[ i ], ' ' );{печатаем очередной элемент и пробел}
  writeln( Arr[ MAX_NUMBERS ] );{печатаем последний элемент с переводом курсора на новую строку}
end;
procedure SortArray( var Arr : TArray );
{процедура сортировки массива, использован пузырек}
var
  i, j : integer;{счетчики}
begin
  for i := 1 to MAX_NUMBERS - 1 do
    for j := i + 1 to MAX_NUMBERS do
      if( Arr[ i ] > Arr[ j ] ) then
      begin
        {обмен значений между i-м и j-м элементом, основанный на свойстве xora}
        Arr[ i ] := Arr[ i ] xor Arr[ j ];
        Arr[ j ] := Arr[ i ] xor Arr[ j ];
        Arr[ i ] := Arr[ i ] xor Arr[ j ];
      end;
end;
function IsSequencesEqual( var ArrA, ArrB : TArray ) : boolean;
{функция возвращает true если массив ArrA равен массиву ArrB поэлементно}
var
  bRes : boolean;{результат}
  i : integer;{счетчик}
begin
  bRes := true;{инициализация результата}
  i := 1;{инициализациясчетчика}
  while( bRes and ( i <= MAX_NUMBERS ) ) do{пока очередная пара элементов массива равнв и не дошли до конца массива}
  begin
    bRes := ArrA[ i ] = ArrB[ i ];{равна ли очередная пара}
    inc( i );{переход к следующей паре}
  end;
  IsSequencesEqual := bRes;{возвращаем значение}
end;
var
  Arr1, Arr2 : TArray;{исходные массивы}
begin
  {ввод массивов}
  writeln( 'Please enter an array1:' );
  InputArray( Arr1 );
  writeln( 'Please enter an array2:' );
  InputArray( Arr2 );
  {печать исходных массивов}
  writeln( 'Source array A:' );
  PrintArray( Arr1 );
  writeln( 'Source array B:' );
  PrintArray( Arr2 );
  {сортировка массивов}
  SortArray( Arr1 );
  SortArray( Arr2 );
  {печать отсортированных массивов}
  writeln( 'Sorted array A:' );
  PrintArray( Arr1 );
  writeln( 'Sorted array B:' );
  PrintArray( Arr2 );
  {печать результата}
  write( 'Result:' );
  if( IsSequencesEqual( Arr1, Arr2 ) ) then
    writeln( 'EQUAL' )
  else
    write( 'NOT EQUAL' );
  readln;{ожидание ввода}
end.