Perdone usted, pero cuando yo pongo un punto es porque es un punto
Código Delphi
[-]
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
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);
i:= i div 10;
end;
if k mod 10 = j then
Writeln('La clave es correcta')
else
Writeln('La clave no es correcta');
end.