Var a,b,c,d,h,m:integer;
begin
readln(a,b,c,d);
h:=(c*60+d-a*60-b) div 60;
m:=(c*60+d-a*60-b) mod 60;
writeln(h, ,m);
end.
Пример:
18 30 21 15
2 45
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.