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

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.