Berikut ini adalah Program untuk Mencari KPK dan FPB bilangan :
program FPBnKPK;
uses wincrt,crt;
var a,b,r,m,n,p : integer;
pilih: char;
label baca;
begin
baca:
clrscr;
writeln('Mencari FPB dan KPK ');
write('Masukkan bilangn asli pertama a = '); readln(a);
write('Masukkan bilangan asli kedua b = '); readln(b);
m:=a;n:=b;
repeat
r:= m mod n;
if (r <> 0) then
begin
m:=n;
n:=r;
end;
until (r=0);
writeln('FPB(', a, ',',b,') = ',n);
writeln('KPK(',a , ', ',b,') = ', a*b div n);
write (' Mau melanjutkan menghitung ? <Y/T>: '); readln(pilih);
if (pilih='Y') or (pilih='y') then goto baca ;
writeln('Program selesai ...');
end.
