XProfan

Proc IsPrim

    Parameters z&
    declare x&,x%
    case LT(z&,11):Return If(Or(Or(Or(Equ(z&,2),Equ(z&,3)),Equ(z&,5)),Equ(z&,7)),1,0)
    x&=3

    whileloop 3,Int(Sqrt(z&)),2

        case Equ(Mul(&Loop,Div&(z&,&Loop)),z&):Inc x%
        case x%:Break

    wend

    Return Not(x%)

endproc

proc GGT

    Parameters x&,y&
    declare z&,a&,b&

    if LT(x&,y&)

        z&=x&
        x&=y&
        y&=z&

    endif

    while GT(y&,0)

        b&=y&
        y&=Mod(x&,y&)
        x&=b&

    wend

    Return x&

endproc

Def kgv(2) Div&(Mul(&(1),&(2)),GGT(&(1),&(2)))

Proc KGV

    Parameters x&, y&
    Declare q&
    q& = @GGT(x&, y&)
    Return @Div&(x&, q&) * @Div&(y&, q&)

EndProc