Заданы три числа hh, mm, ss. Определите, является ли hh : mm : ss - корректным показанием электронных часов, т. е. число hh должно быть в диапазоне от 0 до 23, числа mm и ss должны быть в диапазоне от 0 до 59.

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 = 0) and (mm = 0) and (ss < = 59) then

writeln ('Корректно')

else

writeln ('Не корректно') ;

end.