Jabarkan L ← S dari Algoritma

[Selesai. S berisi faktor persekutuan terbesar]:

Program elegan untuk algoritme Euclid

Versi algoritme Euclid berikut hanya membutuhkan 6 instruksi inti untuk melakukan 13 langkah pada solusi "inelegan"; parahnya, "inelegan" membutuhkan tipe instruksi lebih banyak.

Diagram alur dari "elegan" bisa dilihat pada bagian atas artikel ini.

Dalam bahasa Basic (tak terstruktur) langkahnya diberi nomor, dan instruksi LET [] = [] adalah instruksi penetapan disimbolkan dengan ←.

5 REM Algoritme Euclid untuk faktor persekuturan terbesar

6 PRINT "Masukan dua integer besar dari 0"