CLS
INPUT M1,Z1,M2,Z2
IF M1=1 THEN M2=1
? M1,Z1,M2,Z2
GOTO 1
END IF
S1=M1
B=M2
100 DO
R=S1 MOD B
S1=B
B=R
LOOP UNTIL R=0
IF BZ=1 THEN GOTO 200
M3=M1*M2/S1
Z3=M3/M1*Z1+M3/M2*Z2
S1=M3
B=Z3
BZ=1
GOTO 100
200
? "M3/S1,Z3/S1=";M3/S1,Z3/S1
1 END


















































,










































"