Program Pascal Mencari KPK Dari dua bilangan dalam Fungsi

program KPKYO;
uses wincrt;
var
   P,G : byte;

   Function KPK( A,B : integer): Integer;
   {I.S dua bilangan integer}
   {F.S kelipatan persekutuan terkecil}
   var Z : Integer;
   begin
        z:=0;
        Repeat
              Z:=z+1;
        until(z mod A=0) AND (z mod B =0);
        KPK:=Z;
  
       
      
   end;

begin
     repeat
           write('ketik bilangan pertama : '); Readln(P);
           write('ketik bilangan kedua : '); readln(G);
     until(P<G);
     writeln(KPK(P,G));
end.