Function BarkodOlustur1(Bar12Hane:String ):String;
Var
  tek_toplam,
  cift_toplam,
  tum_toplam,
  i : Integer;
begin
  tek_toplam  := 0;
  cift_toplam := 0;
  tum_toplam  := 0;
  For i := 1 to Length(Bar12Hane) do begin
     If i mod 2 <> 0
       then tek_toplam  := tek_toplam  + (StrToInt(Bar12Hane[i])*1)
       else cift_toplam := cift_toplam + (StrToInt(Bar12Hane[i])*3);
  end;
  tum_toplam    := 10 - ((tek_toplam+cift_toplam) mod 10);
  If  tum_toplam = 10 then tum_toplam := 0;
  Result := Format('%d', [tum_toplam]);
end;
 
//------------------------------------------------------------------------------
 
function BarkodOlustur2():String;
var
s : string;
i : integer;
begin
s:='';
  for i:=1 to 12 do
  begin
  s:=s+inttostr(random(10));
  end;
  Result := S + BarkodOlustur1(s);
end;
 
//------------------------------------------------------------------------------

RnVuY3Rpb24gQmFya29kT2x1c3R1cjEoQmFyMTJIYW5lOlN0cmluZyApOlN0cmluZzsKVmFyCiAgdGVrX3RvcGxhbSwKICBjaWZ0X3RvcGxhbSwKICB0dW1fdG9wbGFtLAogIGkgOiBJbnRlZ2VyOwpiZWdpbgogIHRla190b3BsYW0gIDo9IDA7CiAgY2lmdF90b3BsYW0gOj0gMDsKICB0dW1fdG9wbGFtICA6PSAwOwogIEZvciBpIDo9IDEgdG8gTGVuZ3RoKEJhcjEySGFuZSkgZG8gYmVnaW4KICAgICBJZiBpIG1vZCAyIDw+IDAKICAgICAgIHRoZW4gdGVrX3RvcGxhbSAgOj0gdGVrX3RvcGxhbSAgKyAoU3RyVG9JbnQoQmFyMTJIYW5lW2ldKSoxKQogICAgICAgZWxzZSBjaWZ0X3RvcGxhbSA6PSBjaWZ0X3RvcGxhbSArIChTdHJUb0ludChCYXIxMkhhbmVbaV0pKjMpOwogIGVuZDsKICB0dW1fdG9wbGFtICAgIDo9IDEwIC0gKCh0ZWtfdG9wbGFtK2NpZnRfdG9wbGFtKSBtb2QgMTApOwogIElmICB0dW1fdG9wbGFtID0gMTAgdGhlbiB0dW1fdG9wbGFtIDo9IDA7CiAgUmVzdWx0IDo9IEZvcm1hdCgnJWQnLCBbdHVtX3RvcGxhbV0pOwplbmQ7CgovLy0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLQoKZnVuY3Rpb24gQmFya29kT2x1c3R1cjIoKTpTdHJpbmc7CnZhcgpzIDogc3RyaW5nOwppIDogaW50ZWdlcjsKYmVnaW4Kczo9Jyc7CiAgZm9yIGk6PTEgdG8gMTIgZG8KICBiZWdpbgogIHM6PXMraW50dG9zdHIocmFuZG9tKDEwKSk7CiAgZW5kOwogIFJlc3VsdCA6PSBTICsgQmFya29kT2x1c3R1cjEocyk7CmVuZDsKCi8vLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t