[jhonny]

A continuación... un lujo que uno se puede dar, solo de la manera mas rebuscada del mundo...

seoane, tu funcion tiene un pequeño problemita:

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; //Aqui iba ; no . 

Bueno gerupc, como bien dice D&W la funcion que te mostre no es muy avanzada, de hecho me parece mas avanzada la de seoane