Ответ:

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.