Трийка чисел (Т1, М1, С1) задае статовий час учасника, атрийка

Program Zadacha; Var T1, M1, C1, T2, M2, C2, t, T3, M3, C3: Integer; Label Start; BeginStart: Write ('T1='); ReadLn (T1); If (T1 < 0) Or (T1 > 23) ThenBeginWriteLn ('Error! '); Goto Start; End; Write ('M1='); ReadLn (M1); If (M1 < 0) Or (M1 > 59) ThenBeginWriteLn ('Error! '); Goto Start; End; Write ('C1='); ReadLn (C1); If (C1 < 0) Or (C1 > 59) ThenBeginWriteLn ('Error! '); Goto Start; End; Write ('T2='); ReadLn (T2); If (T2 < 0) Or (T2 > 23) ThenBeginWriteLn ('Error! '); Goto Start; End; Write ('M2='); ReadLn (M2); If (M2 < 0) Or (M2 > 59) ThenBeginWriteLn ('Error! '); Goto Start; End; Write ('C2='); ReadLn (C2); If (C2 < 0) Or (C2 > 59) ThenBeginWriteLn ('Error! '); Goto Start; End; t: =(T2*3600+M2*60+C2) — (T1*3600+M1*60+C1); If t <= 0 ThenBeginWriteLn ('Error! '); Goto Start; End; T3: =t div 3600; M3: =(t — T3*3600) div 60; C3: =t — T3*3600 — M3*60; WriteLn ('Результат: ', T3,': ', M3, ': ', C3); End.