uses crt;
var h1,m1,s1,h2,m2,s2,rh,rm,rs,ps,pm:shortint;
begin
clrscr;
repeat
writeln('Введите первое время, часы минуты секунды:');
readln(h1,m1,s1);
until(h1 in [0..23])and(m1 in [0..59])and(s1 in [0..59]);
repeat
writeln('Введите второе время, часы минуты секунды:');
readln(h2,m2,s2);
until(h2 in [0..23])and(m2 in [0..59])and(s2 in [0..59]);
if s2>=s1 then
begin
rs:=s2-s1;
ps:=0;
end
else
begin
rs:=60+s2-s1;
ps:=1;
end;
if m2-ps>=m1 then
begin
rm:=m2-ps-m1;
pm:=0;
end
else
begin
rm:=60+m2-ps-m1;
pm:=1;
end;
if h2-pm>=h1 then rh:=h2-pm-h1
else rh:=24+h2-pm-h1;
write('Разница во времени=',rh,'ч. ',rm,'мин. ',rs,'сек');
readln
end.