очень Нужно определить результат выполнения алгоритма

Var a,b,c: int64;
    i,j,k,n,m,r,p,s: integer;
begin
  for i:=1 to 9 do    // буква х
  for j:=1 to 9 do    // буква г
  for k:=1 to 9 do    // буква т
  for n:=0 to 9 do    // буква о
  for m:=0 to 9 do    // буква с
  for r:=0 to 9 do    // буква у
  begin
    p:=k*k mod 10;
    a:=i*10000+p*1000+r*100+m*10+k;
    b:=j*100000+p*10000+n*1000+i*100+n*10+k;
    c:=p;
    for s:=1 to 10 do c:=c*10+p;
    if a*b=c then
    begin
      writeln('хруст = ',a);
      writeln('грохот = ',b);
      writeln(' = ',c);
    end;  
  end;
end.

хруст = 21649
грохот = 513239
= 11111111111

Строчные и прописные латинские буквы:
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
a b c d e f g h i j k l m n o p q r s t u v w x y z
пробел
подчеркивание: _
арабские цифры:
0 1 2 3 4 5 6 7 8 9
знаки операций:
+ - * / = <> < > <= >= := @
ограничители:
. , ' ( ) [ ] (. .) { } (* *) .. : ;
спецификаторы:
^ # $
служебные (зарезервированные) слова:
ABSOLUTE EXPORTS LIBRARY SET
ASSEMBLER EXTERNAL MOD SHL
AND FAR NAME SHR
ARRAY FILE NIL STRING
ASM FOR NEAR THEN
ASSEMBLER FORWARD NOT TO
BEGIN FUNCTION OBJECT TYPE
CASE GOTO OF UNIT
CONST IF OR UNTIL
CONSTRUCTOR IMPLEMENTATION PACKED USES
DESTRUCTOR IN PRIVATE VAR
DIV INDEX PROCEDURE VIRTUAL
DO INHERITED PROGRAM WHILE
DOWNTO INLINE PUBLIC WITH
ELSE INTERFACE RECORD XOR
END INTERRUPT REPEAT
EXPORT LABEL RESIDENT

Подробнее - на -