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

program time;

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.