0 ... 9: whitelh (однозначное)

10 ... 99: writelh (двузначное)

100 ... 999: writelh (трёхзначное)

1000 ... 9999: writelh (четырёхзначное)

10000 ... 99999: writelh (пятизначное)

end

Вводится оценка цифрами, необходимо напечатать словами.

Var

x:integer;

Begin

Readln (x) ;

If (x < 10)

then Writeln ('однозначное')

else

If (x < 100)

then Writeln ('двузначное')

else

If (x < 1000)

then Writeln ('трехзначное')

else

If (x < 10000)

then Writeln ('четырехзначное')

else

If (x < 100000)

then Writeln ('пятизначное') ;

end.