Создать тип запись, время, секунды. С клавиатуры вводится два момента времени, требуется посчитать сколько времени произошло с 1 момента до 2 гарантируется, что 1 момент времени произошел раньше 2. Оба этих моментов произошли в одних календарных сутках. Напишите программный код заранее благодарен.

Type time=record

h, m, s:integer;

end;

var t1, t2, t:time; sec:integer;

begin

write ('1 момент: ') ;

readln (t1. h, t1. m, t1. s) ;

write ('2 момент: ') ;

readln (t2. h, t2. m, t2. s) ;

sec: = (t2. h-t1. h) * 60*60 + (t2. m-t1. m) * 60 + (t2. s-t1. s) ;

t. h:=sec div (60*60) ;

t. m: = (sec-t. h*60*60) div 60;

t. s: = (sec-t. h*60*60) mod 60;

writeln ('Между 1 и 2 прошло ', t. h,' час ', t. m,' мин ', t. s, ' сек') ;

end.

Пример:

1 момент: 9 30 45

2 момент: 12 20 30

Между 1 и 2 прошло 2 час 49 мин 45 сек