CFA wrote:только отдельные значения или списки через запятую получается использовать.

ага
кто знает как такое сделать ?

тогда стоит указать какая из этих строк восьмая, тк ошибка в ней. program Testing; var Q : integer; begin Q:= 50; case Q of 0..9 : addtosystemjournal('однозначное'); 10..99 : addtosystemjournal('двузначное'); 100..999 : addtosystemjournal('трехзначное'); else addtosystemjournal('Число "Q"...

CFA wrote:можно. на первый взгляд все правильно. переменная Q какого типа, не byte случайно?

нет. integer

Q:= 50; case Q of 0..9 : addtosystemjournal('однозначное'); 10..99 : addtosystemjournal('двузначное'); 100..999 : addtosystemjournal('трехзначное'); else addtosystemjournal('Число "Q" не входит в указанный диапазон'); end; 9:25:51 [8]: Compiler: [Error] (test at 8:6): colon (':') expected...