дано натуральное четырехзначное число, верно ли, что  число начинается и заканчивается одной цифрой?

var a: integer;

begin

  writeln('Введите четырехзначное число');

  readln(a);

  if a div 1000=(((a mod 1000) mod 100) mod 10) then writeln('Верно') else writeln('Не верно');

end.