На вход программе подаётся последовательность символов, заканчивающаяся точкой (точка – признак конца и в последовательность не входит). Вывести слово YES, если введённая последовательность является правильной записью нечётного числа в пятнадцатеричной системе счисления, и NO в противном случае.

var  s:string;  i:integer;  r:boolean;  d,d1:set of char;begin  d:=['0'..'9','А','B'..'E'];  d1:=['1','3','5','7','9','B','D'];  Write('Введите строку: '); Readln(s);  r:=True;  for i:=1 to Length(s) do begin    if s[i]='.' then break;    if not (s[i] in d) then begin r:=False; break end    end;  if r then r:=(s[i-1] in d1);  if r then Writeln('YES')  else Writeln('NO')end.