20 INPUTA,B
30 X=A-B:IFB<XTHENA=X:GOTO30
40 A=B:B=X:IFA<>BTHEN30
50 PRINTA