На вход программе подаётся последовательность символов, заканчивающаяся точкой (точка - признак конца и в последовательность не входит). Вывести слово 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.