Program ej2;
Uses crt;
Type
  vector = Array[1..8] Of Integer;
  vector1 = Array[1..8] Of String;
	vector2=array[1..8] of string;
Var
  codigo: vector;
  codigo1: vector1;
	binario:vector2;
  k,y: Integer;
Function dectobin(codigo:String): string;
Var
  dividendo,codigoerror: Longint;
  resto: String;
Begin
  Val(codigo,dividendo,codigoerror);
  dectobin := ' ';
  While dividendo >= 2 Do
    Begin
      Str(dividendo Mod 2, resto);
      dectobin := dectobin(codigo)+resto;
      dividendo := dividendo Div 2;
    End;
  Str(dividendo, resto);
  dectobin := resto+dectobin(codigo);
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 := result Mod(Abs(acumi-acump)Div 10);
  codigo[8] := result;
End;
{aca empieza el programa principal}
Begin
  carga(codigo);
  suma(codigo);
  For k:=1 To 8 Do
    Begin
      codigo1[k] := codigo[k];
    End;
	for y:=1 to 8 Do
		Begin
binario[y]:=dectobin(codigo1[y])
end;
End.