var
n: integer;
x, y, b: byte;
begin
read(n, x, y);
while n > 0 do begin
b := n mod 10;
n := n div 10;
end;
if b = x then
writeln('Число начинается на X')
else
writeln('Число не начинается на X');
if n mod 10 = y then
writeln('Число заканчивается на Y')
else
writeln('Число не заканчивается на Y');
end.
