Определить, является ли введенное слово идентификатором, т.е. начинается ли оно с английской буквы в любом регистре или знака подчеркивания и не содержит других символов, кроме букв английского алфавита (в любом регистре), цифр и знака подчеркивания.

//Pascal ABC.NET 3.1 сборка 1256

Var
 s:string;
 se1,se2:set of char;
 i:integer;
begin
se1:=[a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,_];
se2:=[a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,_,0,1,2,3,4,5,6,7,8,9];
readln(s);
if not(lowcase(s[1]) in se1) then
 begin
  writeln(Не идентификатор);
  exit;
 end;
for i:=2 to length(s) do
if not(lowcase(s[i]) in se2) then
  begin
  writeln(Не идентификатор);
  exit;
 end;
writeln(Идентификатор);
end.

Пример ввода:
_SomeIdentificator
Пример вывода:
Идентификатор