Algoritma menentukan KPK dari dua bilangan

algoritma menentukan KPK dari dua bilangan inputan user menggunakan prosedur

procedure KPK(input bil1, bil2 :integer)
{menentukan kpk dari inputan user }
{K.awal : bil1 dan bil2 terdefinisi nilainy}
{K.akhir : Hkpk tercetak}

DEKLARASI:
Hkpk:integer
temp:integer

ALGORITMA:
Hkpk <---- 0
if(bil1<bil2) then
     temp <--- bil1
           bil1 <--- bil2
           bil2 <--- temp
endif
repeat
       hasil <--- hasil +bil2
until   hasil mod bil2 ≠ 0

write(Hkpk)