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.