/* A single missed character can be fatal .... */ begin read x; read y; while x-y do begin z:= x; x:= x-y; y = x; end; print y; end