Program ej2;
Uses crt;
Type
  vector = Array[1..8] Of Integer;
Var
  codigo: vector;

Function dectobin(decimal:Integer): String;
Var
  dividendo: Longint;
  resto: String;
Begin
  Val(decimal,dividendo);
  dectobin := ' ';
  While dividendo >= 2 Do
    Begin
      Str(dividendo Mod 2, resto);
      dectobin := resto+dectobin;
      dividendo := dividendo Div 2;
    End;
  Str(dividendo, resto);
  dectobin := resto+dectobin;
End;

Procedure carga(codigo:vector);
Var
  i,j: Integer;
Begin
  For i=1 To 3 Do
    Begin
      Writeln('Ingrese el codigo de la empresa');
      Readln(codigo[i]);
    End;
  For j=4 To 7 Do
    Begin
      Writeln('Ingrese el importe de 4 digitos');
      Readln(codigo[j]);
    End;
End;

Procedure suma(codigo:vector);
Var
  i,j,acumi,acump,result: Integer;
Begin
  acumi := 0;
  acump := 0 ;
  For i=1 To 7 Do
    Begin
      acumi = acumi+codigo[i];
      i = i+1;
    End;
  For j=2 To 6 Do
    Begin
      acump = acump+codigo[j]);
      j = j+1;
    End;
  result := Mod(Abs(acumi-acump)/10);
  codigo[8] := result;
End;

{aca empieza el programa principal}
Begin