Codificar números

program proyectoCodificarNumeros;
var a, b, c, aux1, aux2, aux3: Integer;
  mascara: Integer;

begin
  readln(a,b,c);
  a:=not a;
  mascara:=b shl 16;
  b:=b shr 16;
  b:=mascara or b;
  aux1:=c shl 26;
  aux2:=a shl 26;
  aux3:=b shl 26;
  a:=(a shr 6) or aux1;
  b:=(b shr 6) or aux2;
  c:=(c shr 6) or aux3;
  writeln(a,' ',b,' ',c);
  readln
end.