Урок 3, задача 10 (1483). Два момента времени, Pascal

Language: Layout:

{
Урок 3, задача 10. Задача №1483. Два момента времени
Даны значения двух моментов времени, принадлежащих одним и тем же суткам: 
часы, потом минуты и секунды для каждого из моментов времени. 
Известно, что второй момент времени наступил не раньше первого. 
Определите, сколько секунд прошло между двумя моментами времени.
Входные данные
В первой строке входных данных находятся три целых числа — часы, минуты и секунды первого момента времени. 
Во второй строке — три числа, характеризующие второй момент времени.
Число часов лежит в диапазоне от 0 до 23, число минут и секунд — от 0 до 59.
Выходные данные
Выведите число секунд между двумя моментами времени.
Примеры
Входные данные
1 1 1
2 2 2
Выходные данные
3661
Входные данные
1 2 30
1 3 20
Выходные данные
50
}
var 
    h1, m1, s1,
    h2, m2, s2 : integer;
    s : longint; // здесь необходим тип longint, так как в числе больше 16-и двоичных разрядов
                 // вообще говоря, чтобы избежать такого типа проблем, можно не вводить переменную s,
                 // а в writeln записать арифметическое выражение, вычисляющее секунды.
begin
    readln ( h1, m1, s1 );
    readln ( h2, m2, s2 );
    s := ( h2 - h1 ) * 3600 + ( m2 - m1 ) * 60 + s2 - s1;
    writeln ( s, ' = ', ( h2 - h1 ) * 3600, ' + ', ( m2 - m1 ) * 60, ' + ', s2 - s1 );
end.

Show compiler warnings [ - ] Show input
Compilation time: 0.23 sec, absolute running time: 0.24 sec, cpu time: 0.17 sec, memory peak: 3 Mb, absolute service time: 0,56 sec