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

Question

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

Answer 1

var a: integer;

begin

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

  readln(a);

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

end.