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

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