Question

PascalABCD
Вообще не понимаю, помогите с домашней работой

Answer 1

• program paskal;
• var t:integer;
• begin
• writeln('Введите время в часах:');
• readln(t);
• if (t >= 0) and (t < 6) then begin
• writeln('Ночь');
• end;
• if (t >= 6) and (t < 12) then begin
• writeln('Утро');
• end;
• if (t >= 12) and (t < 18) then begin
• writeln('День');
• end;
• if (t >= 18) and (t <= 24) then begin
• writeln('Вечер');
• end;
• end.