Безотлагательно!Помогите пожалуйста с задачей по информатике. Задачка приведена на фото.Зарание

Паскаль?
 var h,m,s:integer;begin  Readln(h,m,s);  if sgt;=30 then begin Writeln(h,' ',m+1);m:=m+1; end else Writeln(h,' ',m);  if mgt;=30 then Writeln(h+1) else Writeln(h);end.Если 12 29 30 обязано выводить 12 30 и 13, то задачка верна,если нет,то убери m=m+1;