Program The_Times; uses crt;

var h1,h2,m1,m2,s1,s2,t1,t2:word;
    time,h,m,s,t:longint;

Begin clrscr;
Write('--------------------------------------------------------------------------------');
Writeln(' Введите время начала олимпиады [ЧЧ:ММ:СС.сс]: ');
Write(' Часы: '); Readln(H1);
Write(' Минуты: '); Readln(M1);
Write(' Секунды: '); Readln(S1);
Write(' Сотые доли секунды: '); Readln(T1);
Write('--------------------------------------------------------------------------------');
Writeln(' Введите время окончания олимпиады [ЧЧ:ММ:СС.сс]: ');
Write(' Часы: '); Readln(H2);
Write(' Минуты: '); Readln(M2);
Write(' Секунды: '); Readln(S2);
Write(' Сотые доли секунды: '); Readln(T2);

Time:=(LongInt(H2)*360000+LongInt(M2)*6000+S2*100+T2)-(LongInt(H1)*360000+LongInt(M1)*6000+S1*100+T1);

H:=Time div 360000; {Вычисляем часы}
M:=(Time-H*360000) div 6000; {Вычисляем минуты}
S:=(Time-(H*360000)-(M*6000)) div 100; {Вычисляем секунды}
T:=(Time-(H*360000)-(M*6000)-(S*100)); {Вычисляем сотые доли секунды}

Write('--------------------------------------------------------------------------------');
Writeln(' Олимпиада продолжалась [ЧЧ:ММ:СС.сс]: ',H,':',M,':',S,'.',T);
Write('--------------------------------------------------------------------------------');
GotoXY(15,WhereY); Writeln('Для выхода из программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln;
end.