program encriptacion;
uses crt;
const C='abc123';
var ch:char;
con:string;
cont:integer;
begin
cont:=0;
repeat
Writeln('INGRESE CONTRASEÑA');
ch:=readkey;
WHILE ch<>#13 DO
begin
con:=con+ch;
write('*');
ch:=readkey
end;
if (con=C) then
writeln('la contraseña es correcta')
else
begin
writeln('la contaseña es incorrcta');
cont:=cont+1;
end;
until (con=C) or (cont=3);
readkey;
end.
program encriptacion;
uses crt;
const C='abc123';
var ch:char;
con:string;
cont:integer;
begin
cont:=0;
repeat
Writeln('INGRESE CONTRASEÑA');
ch:=readkey;
con:='';
WHILE ch<>#13 DO
begin
con:=con+ch;
write('*');
ch:=readkey
end;
if (con=C) then
writeln('la contraseña es correcta')
else
begin
writeln('la contaseña es incorrcta');
cont:=cont+1;
end;
until (con=C) or (cont=3);
end.