Условие:

Тройка чисел (T1,M1,C1) задает стартовое время, а тройка (T2,M2,C2) - финишное время участника лыжной гонки 30 км (часы, минуты, секунды). Проверить корректность данных и найти результат участника.

 Технические условия:

Стандартные.

 Примеры входных и выходных файлов:

Отсутствуют.

Решение:

var

  a,b,x,y,t1,m1,c1,t2,m2,c2 : integer;

begin

  write('Старт...'); { ввод данных } 

  readln(t1,m1,c1);

  write('Финиш...');

  readln(t2,m2,c2);

  if (t1<0) or (t2<0) or (m1<0) or (m2<0) or {проверяем корректность: }

  (c1<0) or (c2<0) or (t1>23) or (t2>23) or {часы от 0 до 23,мин,сек- }

  (m1>59) or (m2>59) or (c1>59) or (c2>59) { от 0 до 59 }

  then writeln('Некорректные данные')

  else begin

    x:=(c2-c1) div 60;

    y:=(c2-c1) mod 60; {секунды}

    a:=((m2-m1) mod 60) + x; {минуты}

    x:=(m2-m1) div 60;

    b:=((t2-t1) mod 60) + x; {часы}

    if y<0

    then begin

      y:=y+60;

      a:=a-1;

    end;

    if a<0

    then begin

      a:=a+60;

      b:=b-1;

    end;

    if b<0

    then b:=b+24;

    writeln('Результат ',b,' ч. ',a,' мин. ',y,' сек.');

  end;

end.