Сделаем все по "китайски": ... writeln('time:'); readln(a); char a of 5..9: c:='Ytro'; 10..17: c:='Den'; 18..22: c:='Vecher'; 23..24,0..4: c:='noch'; ... writlen(c); end; Если будет ругаться прога, проставь для каждого параметра, или через массив(array[])
...
writeln('time:');
readln(a);
char a of
5..9: c:='Ytro';
10..17: c:='Den';
18..22: c:='Vecher';
23..24,0..4: c:='noch';
...
writlen(c);
end;
Если будет ругаться прога, проставь для каждого параметра, или через массив(array[])