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

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.