Ребят, кто шарит паскаль, сделайте прогу плз

Question

Ребят, кто шарит паскаль, сделайте прогу плз

---

Comments

begin var night := Arr(0, 1, 2, 3, 4, 5); var morning := Arr(6, 7, 8, 9, 10, 11); var day := Arr(12, 13, 14, 15, 16, 17); var evening := Arr(18, 19, 20, 21, 22, 23); var time := (24 + ReadInteger('t =') mod 24) mod 24; Print(time in morning ? 'morning' : time in night ? 'night' : time in evening ? 'evening' : 'day')end.

Answer 1

Program time;

var t: Integer;

begin
Write('Введите время (в часах): ');
ReadLn(t);
if (t>=0) and (t<6) then begin<br> WriteLn('Ночь');
end else if (t>=6) and (t<12) then begin<br> WriteLn('Утро');
end else if (t>=12) and (t<18) then begin<br> WriteLn('День');
end else if (t>=18) and (t<=24) then begin<br> WriteLn('Ночь');
end;
end.