[[seoane]]

Pues mas o menos es igual de complicado:

Aqui te lo dejo leyendo la clave como integer:

Código Delphi [-]
var
  i,j,k: Integer;
begin
  Writeln('Introduce la clave:');
  Readln(i);
  j:= i mod 10;
  k:= 0;
  while i > 0 do
  begin
    inc(k,i mod 10); // Esto es igual a k:= k + (i mod 10);
    i:= i div 10;
  end;
  if k mod 10 = j then
    Writeln('La clave es correcta')
  else
    Writeln('La clave no es correcta');
end.