Оставить программу ввода величины времени суток t (0< =t< =24)и выдачи текста: "вы уже проснулись? " - если t< 10 "не пора ли обедать? " - если t=12 "еще не вечер! " - если t> =18 "как работается? " - в остальных случаях.

Var
  t: integer;

begin
  readln(t);
  if t < 10 then print('Вы уже проснулись?')
  else if t = 12 then print('Не пора ли обедать?')
  else if t >= 18 then print('Еще не вечер!')
  else print('Как работается?')
end.

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