Perhatikan potongan program berikut ini:

function kopi(x,y:longint):longint;
var susu,karamel:longint;
begin
    susu := 0;
    kopi := 0;
    while (x>0) or (y>0) do 
    begin
        karamel := (x mod 10) + (y mod 10);
        kopi := (kopi*10) + (karamel mod 10);
        susu := karamel div 10;
        x := x div 10;
        y := y div 10;
    end;
end;

Berapakah hasil dari pemanggilan kopi(12345, 67890)?