Program gt;
var k,s,t:integer;
begin
read(s,t);
if(s<=12)then begin
if(s<=t)then k:=t-s;
if(s>t)then k:=t+12-s;
end;
if(s>12)then begin
if(s<=t+12)then k:=t+12-s;
if(s>t+12)then k:=24-s+t;
end;
writeln(k);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.