              else 
                                                    y := y - x; 
                                                end if;
                                            end loop;
                                            gcd := x;
                                        end;                        
                                    </code></pre>                                    
                                    <figcaption style="font-size:x-small"> Euklid's Algorithmus </figcaption