program cpfs;

type
    TCPF = ^ptcpf;
    ptcpf = record
        cpf : string;
        prox : TCPF;
    end;
    THash = array[0..99] of TCPF;
        

function validarCPF(var cpf:string):boolean;
    var
        i, soma, dig1, dig2:integer;
    begin
        soma:=0;
        for i:=1 to 9 do
              //ord('0')=48... ord('1')=49... dai -48 vira 0... *11-i, vai decrementando, *9, *8, *7...
            soma:=soma+(Ord(cpf[i])-48)*(11-i);

        dig1 := 11 - (soma mod 11); //digito 1 pega a sobra da divisao bla bla
        if (dig1 = 10) or (dig1 = 11) then
          dig1 := 0;


        soma := 0;
        for i := 1 to 10 do
          soma := soma + (Ord(cpf[i])-48)*(12-i);

        dig2 := 11 - (soma mod 11);
        if (dig2 = 10) or (dig2 = 11) then
gitea@10.0.0.42:iTakinn/cpfs_pascal.git          dig2 := 0;

        ValidarCPF :=
          (dig1=(Ord(cpf[10])-48)) and (dig2=(Ord(cpf[11])-48));

    end;


procedure inserirCPF(var cpfs:THash; var cpf:string);
    var
        i, pos:integer;
        novo, atual, ant:TCPF;
    begin
        if validarCPF(cpf) then
        begin
            pos:=(Ord(cpf[10])-48)*10 + (Ord(cpf[11])-48); //esse ngocio pega os digitos verificadores, gpt ajudou, transformar string em int é pesadelo
            new(novo);
            if novo = nil then
                writeln('Memoria cheia')
            else
                begin
                    novo^.cpf := cpf;
                    novo^.prox := nil;
                    atual:= cpfs[pos];
                    ant:=nil;
                    while (atual <> nil) and (atual^.cpf < cpf) do
                        begin
                            ant := atual;
                            atual := atual^.prox;
                        end;
                    if ant = nil then
                        begin
                            novo^.prox := cpfs[pos];
                            cpfs[pos] := novo;
                        end
                    else
                        begin
                            novo^.prox := atual;
                            ant^.prox := novo;
                        end;
                end;
        end
        else
            writeln('CPF INVALIDO');
    end;




var
    hash: THash;
    cpf:string;
    bool:boolean;
begin
    readln(cpf);
    inserirCPF(hash,cpf);
end.