                     <figure>
                        <pre><code class="Pascal" data-trim >
                                        begin
                                            read (x); 
                                            read (y);
                                        
                                            while x != y loop 
                                                if x > y then 
                                                    x := x - y;
                                  