Menghitung Nilai FPB dari 2 bilangan

Berikut adalah Algoritma untuk program Turbo Pascal:

program menghitung_FPB_dua_Bilangan;

uses crt;

var a,b,q,r : integer;

label awal, akhir;

begin

clrscr;

writeln (' Program Menghitung FPB dari dua bilangan');

writeln (' ------------------------------------------');

writeln;

writeln (' Nama : Lia Amaliyah');

writeln (' NIM : 070821');

writeln (' Mata Kuliah : Program Komputer');

writeln; readln;

writeln(' Masukkan nilai a dan b yang akan dihitung ');

writeln;

write(' a = '); readln(a);

writeln;

write(' b = '); readln(b);

writeln;

writeln(' Maka FPB dari ( ',a,',',b,') melalui rumus a = qb + r adalah ');

writeln(' (Dimana q = a div b dan r = a mod b) ');

writeln;

if a>b then

awal:

begin

r:=a mod b;

q:=a div b;

textcolor (yellow);

writeln(' ',a,' = ', q ,' * ',b,' + ',r, ''); read; write;

if r=0 then

begin

writeln;

textcolor (9);

writeln(' FPB dari kedua bilangan adalah ', b); readln;writeln;

end else

a:=b; b:=r;

goto awal; end

else

if a

akhir:

begin

r:= b mod a;

q:= b div a;

write(' ',a,' = ',q,' * ',b,' + ',r, ''); readln;

writeln;

if r=0 then

writeln(' FPB dari kedua bilangan adalah ', a); readln;

end else

b:=a; a:=r;

goto akhir;

end.

akan terlihat hasilnya sebagai berikut: