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

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.