5 PRINT "***GREATEST COMMON DIVISOR OF TWO INTEGERS***"
10 PRINT 
100 PRINT "INPUT 'INTEGER,INTEGER'.  TO END PROGRAM INPUT '0,0'"  
110 INPUT A,B 
115 IF A=0 THEN 999
120 PRINT 
130 C=ABS(A)  
140 D=ABS(B)  
150 R=C-D*INT(C/D)  
160 IF R=0 THEN 200
170 C=D
180 D=R
190 GOTO 150 
200 PRINT "G.C.D.=";D 
210 PRINT 
220 PRINT "INPUT 'INTEGER,INTEGER'" 
230 GOTO 110 
999END 

