Дано натуральное число

[Joker<777>]

Дано натуральное число n если оно двухзначное, то выписать в середину о, иначе вывести сообщение число не двух знаков.

[_-Re@l-_]

Суть такая:

Uses CRT;
Var
    X,T1,T2:Integer;
Begin
     Clrscr;
     Write('X = ');
     Readln(X);
     If (X div 100 = 0) and (X>=10) Then
     Begin
        T1:=X mod 10;
        T2:=(X - T1) div 10;
        X:=T2*100+T1;
        Write('X = ',X);
     End
     Else
     Write('Not!');
     Readln;
End.

Может, можно и проще, но...Какая разница?

[Joker<777>]

Спасибо ВыручилЛЛЛЛЛ