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