PROGRAM identificador;
TYPE
mayus='A'..'Z';
minus='a'..'z';
digit='0'..'9';
VAR
frase:STRING[255];
mayuscula:mayus;
minuscula:minus;
digitos:digit;
x:CHAR;
begin
writeln('Mete una frase acabada en punto.');
readln(frase);
IF frase[1]=(mayuscula OR minuscula) THEN
begin
IF frase[2]=(mayuscula OR minuscula OR digitos)THEN
Writeln('Identificador correcto');
end
ELSE
writeln('Identificador incorrecto');
end.