program time;
var h,m,s:integer;
begin
repeat
writeln ('Введите текущее время (часы, минуты, секунды)');
readln (h,m,s);
until (h<=23) and (m<=59) and (s<=59);
if s>30 then
m:=m+1;
if m=60 then begin
h:=h+1;
m:=0;
if h=24 then
h:=0;
end;
writeln (h:3, ' ч' , m:3, ' мин');
readln
end.