"A="?ÞA
"B="?ÞB
Int (A¹B)ÞQ
A™BQÞR
If R<0
Then Q™(B¹Abs B)ÞQ
R‰Abs BÞR
IfEnd
"Q=":QÝ
"R=":RÝ
"FIN"