ACLS OPTION DEFINT OPTION STRICT XSCREEN 1 VAR N%,I%,J% VAR A%,B% INPUT N% IF N%<=21 THEN I%=N%:J%=3818:A%=1 WHILE I% IF I% AND 1 THEN A%=A%*J% MOD 32749 J%=J%*J% MOD 32749 I%=I%>>1 WEND I%=N%:J%=28932:B%=1 WHILE I% IF I% AND 1 THEN B%=B%*J% MOD 32749 J%=J%*J% MOD 32749 I%=I%>>1 WEND IF A%+B%>=32749 THEN PRINT A%+B%-32749 ELSE PRIN…