75 ! , , как можно решить эту в pascal abc с использованием while / repeat ? замените буквы цифрами так, чтобы соотношение оказалось верным (одинаковым буквам соответствуют одинаковые цифры, разным-разные) хруст*грохот=

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