a,b:=165,150; do b<>0 -> a,b := b,a mod b od