Дано натуральное число. Проверить, является ли число двузначным, и равна ли первая цифра числа второй.

Var x, a, b:integer;

Begin

write ('x=') ; readln (x) ;

if (x div 10) = 0 then writeln ('Число однозначное.')

else if (x div 100) = 0 then

begin

write ('Число двухзначное, ') ;

a:=x div 10;

b:=x mod 10;

if a=b then writeln ('и его первая цифра равна второй.')

else writeln ('и его первая цифра не равна второй.') ;

end

else writeln ('Это число многозначное.') ;

End.