Информатика 7класс 2 тоқсан берндерш​

var a: integer;

begin

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

  readln(a);

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

end.