оставить программу ввода величины времени суток t (0<=t<=24)и выдачи текста: "Вы уже проснулись?" - если t<10 "Не пора ли обедать?" - если t=12 "Еще не вечер!" - если t>=18 "Как работается?" - в остальных случаях.
var t:integer;begin Write('t='); Read(t); case t of 0..9:Writeln('Вы уже проснулись?'); 12:Writeln('Не пора ли обедать?'); 18..24:Writeln('Еще не вечер!'); else Writeln('Как работается?') endend.