Program If30;
Var
x: Integer;
Begin
ReadLn(x);
If x Mod 2 = 0 Then
Write('четное ')
Else
Write('нечетное ');
If x - 100 >= 0 Then
WriteLn('трехзначное число')
Else If x - 10 >= 0 Then
WriteLn('двузначное число')
Else
WriteLn('однозначное число'); { незнаю, можно ли так говорить:) }
End.