Program Test5; Uses katse5, CRT, DOS; {Var timebasis, timeoldhour : longint; global} Procedure timestart; Var h, m, s, x : word; Begin gettime (h, m, s, x); timeoldhour := h; timebasis := 36000 * timeoldhour + 600 * m + 10 * s + x div 10; End; Function stopwatch : longint; Var h, m, s, x : word; Begin gettime (h, m, s, x); if h < timeoldhour then timebasis := timebasis - 864000; timeoldhour := h; stopwatch := 36000 * timeoldhour + 600 * m + 10 * s + x div 10 - timebasis; End; var q : char; Begin timestart; repeat q := readkey; case q of '0' : begin timestart; setregime0; end; '1' : begin timestart; setregime1; end; ' ' : writeln (regime:1:1, stopwatch/10:9:1, temperature:9:2); end; until q = 'x'; End.