FPB

uses crt;
var
bil1,bil2,r,m,n,hasil_kali,fpb:integer;
kpk:real;

begin
clrscr;
write('masukkan bilangan pertama:');
readln(bil1);
write('masukkan bilangan kedua:');
readln(bil2);
writeln;
hasil_kali:=bil1*bil2;
if (bil1>bil2) then
begin
m:=bil1;
n:=bil2;
end
else
begin
m:=bil2;
n:=bil1;
end;
repeat
r:=m mod n;
if (r=0) then
begin
fpb:=n;
writeln('FPB dari ',bil1,' dan ',bil2,' adalah ',fpb);
end
else
begin
m:=n;
n:=r;
end;
until (r=0);
writeln;
writeln('KPK dari ',bil1,' dan ',bil2,' adalah ',hasil_kali/fpb:5:0);
readln;
end.