Напишите программу которая получает число от 1 до 1000 и определяет, однозначное, двузначное, трехзначное или четырехзначное это число

Program n1;var a: integer;beginreadln(a);case a of1..9: write('однозначное');10..99: write('двузначное');100..999: write('трехзначное');1000: write('четырехзначное')else write('ошибка');end;end.