оставить программу ввода величины времени суток 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(‘Как работается?’)

  end

end.