PRINT “A^B%C”;SLEEP(2)
INPUT A,B,C
D=1
FOR(E=B/2;E≥.5;E=E/2){IF(Frac(E)>0)THEN{D=DA-INT(DA/C)C}
A=A2-INT(A2/C)C;E=INT(E)}
PRINT D
END

PRINT “A/B%C”;SLEEP(2)
INPUT A,B,C
D=1;E=0;G=C;J=B
FOR(I=0;J>0;I++){H=Int(B/G);J=B-HG
IF(I≠0)THEN{F=DH+E;E=D;D=F}
B=G;G=J}
IF(Frac(I/2)≠0)THEN{E=C-E}
D=AE-Int(AE/C)C
PRINT D,” NOD=”,B
END

PRINT ”NOD(A,B)”;SLEEP(2)
INPUT A,B
FOR(C=A;C>0;C=A-INT(A/B)B){A=B;B=C}
PRINT “B”
END

PRINT ”FACT A”;SLEEP(1)
INPUT A
C=sqrt(A);D=0
FOR(B=2;B<=C;B++){IF(Frac(A/B)==0)THEN{A=A/B
PRINT B;SLEEP(2)
E[D]=B;D++;B--}}
PRINT A;E[D]=A
END