PROCEDURE ConseguirClave(entrada1,entrada2:string; VAR salida:integer);
var
i,aux :integer;
cad: string;
begin
cad:=entrada1+entrada2;
aux:=1;
i:=1;
IF length(cad)<2 THEN cad:=cad+'   ';
while i<=LENGTH(CAD) -3   do
   begin
   aux:= aux + sqr(ORD(CAD[I]) * ORD(CAD[I+1]) + ORD(CAD[I+2]))-sqr(i);
   //aux:=aux - ord(cad[i]);
   //inc(i);
   i:=i+3;
   end;

if (aux >=0) and (aux <=(N-1)) then
  salida:=AUX
ELSE
  BEGIN
  AUX:= ABS(AUX);
  salida := aux MOD (N-1);
END;
end;