Программа на Паскале.Спортсмен принял участие в соревнавании.Даны переменые h1, m1, s1,-время старта, h2,m2,s2-время финиша.Требуется результат спортсмена в секундах, мин, часах.

Program sport; var h1, m1, s1, h2, m2, s2, h, m, s, st, fin, p, i : integer; begin writeln('Старт.'); write('Количество часов '); read(h1); write('минут '); read(m1); write('секунд '); read(s1); st:=s1+m1*60+h1*3600; writeln('Финиш.'); write('Количество часов '); read(h2); write('минут '); read(m2); write('секунд '); read(s2); fin:=s2+m2*60+h2*3600; p:=fin-st; i:=p; s:=p mod 60; p:=p div 60; m:=p mod 60; p:=p div 60; h:=p mod 60;   writeln('Итог - ',h,' часов ', m,' минут ',s,' секунд '); write(' Всего ',i,' секунд.'); end.