дано натуральное четырехзначное число, верно ли, что число начинается и заканчивается одной цифрой?
var a: integer;
begin
writeln('Введите четырехзначное число');
readln(a);
if a div 1000=(((a mod 1000) mod 100) mod 10) then writeln('Верно') else writeln('Не верно');
end.