CoordOff:GridOff:AxesOff:LabelOff
ViewWindow 1,127,0,63,1,0
Cls
?ÞA
?ÞB
1ÞZ:AÞC:BÞD
Do
Int (A¹B)ÞQ
A™BQÞR
If R<0
Then R‰Abs BÞR
Q‰Q¹Abs QÞQ
IfEnd
Text Z,1,A
Text Z,21,"="
Text Z,25,B
Text Z,41,"©"
Text Z,45,Q
Text Z,61,"‰"
Text Z,65,R
BÞA
RÞB
7‰ZÞZ
If Zâ60
Then Green Text 10,90,"[EXE]"
1ÞZ
Do
GetkeyÞK
LpWhile K=0
Cls
IfEnd
LpWhile Rá0
Green Text 10,90,"Le"
Green Text 17,90,"PGCD est"
Orange Text 24,100,A
Green Text 40,90,"Le"
Green Text 47,90,"PPCM est"
Orange Text 54,100,CD¹A
Stop
Vigot Alexis