Помогите возвести в степень по модулюy=4^13456 (mod 31991)

Вот так на Паскале:
var
i, N : Longint;
begin
N := 1;
for i := 1 to 13456 do N := (N * 4) mod 31991;
WriteLn(N);
end.
Результат:
24541

Здесь алгоритм очень хорошо виден!
А все говорят Паскаль − говно! Си − это круто! …
Сами видите, что на Паскале всё гораздо легче понимается!

Для проверки на калькуляторе :-)
4^13456 =
4766537072 2071475551 5448217333 6673693849 5723195125 5558814979 7659166339 1223679909 5215262000 6264127899 0882969795 2849359745 2433217621 7050041751 5186582759 6192808530 9858192609 4187702933 3163635249 4691374407 1516856586 8231503218 0884593378 9396321825 1665658456 3549106962 8970370648 4707503293 9168033132 8712069040 7018332452 3378134221 7776819413 3502351556 9349045977 7033003509 7680492946 6630500165 5347985353 5915711686 7325774101 6855708059 2004750208 0495007163 4364872737 1076944503 4739900981 5760588477 6182072049 0487061017 9023029603 5393993210 4835752932 4908588508 1233013379 5623815329 3866758276 1886962045 6158245408 5862068349 4738573132 3171965882 4591613321 6484697673 2288333902 7343127189 3459173643 7222413669 6034020639 8687229939 8690407580 3876009731 3379586771 9714088676 3533080655 3340837429 1419483584 0761303562 4944098706 9052314484 6110327121 0375520891 4212587392 6477642219 1442394059 7793618739 3037392158 7153166288 9242110894 0454088543 2247767107 3331127599 5703763321 2255216301 4120449719 1722703416 2992104895 0865338395 8330082033 6283488186 8639082618 6655418998 3732346945 9600696317 4463649913 6097449884 9379411423 3794881416 6663077624 3621580038 6686561617 1057416412 9531517039 5316003498 9956336781 1069222901 2091023761 5312429759 1136128172 3054865035 1506810012 9009714572 3140956585 5547703479 0042098653 7666842174 5921226792 6424096691 2481075838 6225171732 6389402190 3711032031 6515231267 3484340129 9203619062 4638042548 3421140682 8056374787 8487885321 5743810473 4820684033 7096883859 2358584365 3859405582 2556477172 4438008602 7149933444 1481928916 3994671531 8710426626 2116833865 4404003773 3018392656 9850377684 5589062060 7843398958 8429194184 3632978298 7772214722 0012914278 5636461093 5714042433 7419723645 2863618048 4919062615 0319261693 3718005430 6880617484 6238382099 9608898530 0686618787 0439213111 6702007548 6895444515 7393061734 3683334009 6313628122 8400089333 8693369105 0171597578 8664151080 96

… mod 31991 = 24541

Ура! Сошлось!