Var
hh, mm, ss: integer;
begin
readln(hh, mm, ss);
if (hh in [0..23]) and (mm in [0..59]) and (ss in [0..59]) then
writeln('Корректно')
else
writeln('Не корректно');
end.
Либо можно так:
var
hh, mm, ss: integer;
begin
readln(hh, mm, ss);
if (hh >= 0) and (hh <= 23) and (mm >= 0) and (mm <= 59) and (ss >= 0) and (ss <= 59) then<br> writeln('Корректно')
else
writeln('Не корректно');
end.