Coding Menghitung Kelipatan Persekutuan Terkecil (KPK)

uses wincrt;
var  

    bil1,bil2,b,c,d : integer;

    e  : real;

    begin
         writeln;
         write('Masukkan Angka Pertama: ');readln(bil1);
         write('Masukkan Angka Kedua: ');readln(bil2);
         writeln;
         b := bil1;
      
         while b >= 1 do
         begin
              c := bil1 mod b;
              d := bil2 mod b;
              if (c = 0) and (d = 0) then
              begin
                e := (bil1 * bil2) / b;
                writeln('KPK dari ',bil1,' dan ',bil2,' adalah ',e:0:0);
                writeln('__________________________');
                writeln('+++DeffBoyy Punyaaa+++');
                   b := 0;

              end;
              b := b - 1;
              end;
End.

Posted in: Pascal