uses crt;
var x,n:integer;
    s:string;
begin
clrscr;
write('введите число>9 ');
readln(x);
str(x,s);
n:=length(s);
if s[1]=s[n] then writeln('число начинается и заканчивается на одну цифру')else writeln('число начинается и заканчивается на разные числа');
end.