Begin gettime(часы,минуты,секунды,миллисекунды); выполнение тестов; gettime(часы,минуты,секунды,миллисекунды); end. как узнать время выполнения тестов? т.е конечное время минус начальное. например: 1 час 50 минут 30 секунд минус 1 час 55 минут 30 секунд = 0 часов 5 минут 0 секунд как это вывести в формулах?

H1, m1, s1 - начальное время
h2, m2, s2 - конечное время
Нужно определить h,m,s.

s := (h2 - h1)*3600 + (m2 - m1)*60 + (s2 - s1);
h := s div 3600; s := s mod 3600;
m := s div 60;   s := s mod 60;

Т.е. в h - кол-во часов, в m - кол-во минут, в s - кол-во секунд.