Нужно сделать расчёт времени, Помогите Опции

[Artem7]

Начали изучать Pascal и дали задачу вводим начальное время (ч,м,с) конечное время (ч,м,с) и надо сделать так чтобы он находил количество времени прошедшее от начала до конца и ответ чтобы выводил в формате (ч,м,с)
P.S Мы только начали проходить Pascal так что прошу как можно проще реализовать потомучто сказали с базовыми навыками реализовать.

[Artem7]

Сделать проверку,чтобы начальное число было больше конечного)))
.......
if (a<d) and (b<f) and (c<e) then
........

Хм, ввел ваше условие проверил всё работает, потом поробовал убрать ваше условие и проверить работоспособность и без условия сработало....

Добавлено через 4 мин.

Та программа, которую привел я такой вывод отображать не может. По крайней мере сразу после вывода приглашения "Введите начальное/конечное время" у меня идет перевод строки, у тебя же - ввод продолжается на той же строке. Значит, программу правил. Обычно в таких случаях показывают, что запускалось. Но я тебе и так скажу, в чем проблема. В Турбо-Паскале тот фокус, который я задумал, не прошел. Переполнение типа Integer приводит к тому, что получаются отрицательные результаты. Итого, делаем как положено:

   sec := (e + 60 * f + 3600 * longint(d)) -
          (c + 60 * b + 3600 * longint(a));

, и на показанных исходных данных получаем правильный результат "2:19:35"

Это неправильный путь. Твое условие тут же даст сбой, если введенное конечное время - в пределах одного и того же часа, что и начальное 09:00:00 и 09:12:15 обработано не будет (у тебя строгое равенство, угу). Почему, собственно? Про 09:40:15 .. 10:30:20 я уже и не упоминаю, твое условие этот вариант тоже не пропускает, тогда как мое исправление прекрасно обрабатывает оба случая

Спасибо большое всё работает))))