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

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.