Algoritma menentukan FPB (Faktor Persekutuan Terbesar) dari dua bilangan

Algoritma menentukan PBB dari dua bilangan

Deklarasi :
bil1,bil2,temp,sisa : integer

Algoritma :
read(bil1)
read(bil2)

if(bil1<bil2) then
        temp <---- bil1
        bil1 < ----- bil2
        bil2 < ----- temp
endif

repeat 
     sisa <----- bil1 mod bil2
     bil1 <----- bil2
     bil2 <-----sisa
until sisa ≠ 0

write(bil1)