Елена Колесник
Программа на паскале. Почему не работает функция ABC
var
m, n, k, r: longint;
begin
write('Chasi, Minuti, Sekundi ');
readln(m, n, k);
write('Rsekundi');
readln(r);
m :=( m * 3600 + n * 60 + k + r) div 3600 mod 24;
n := (m * 3600 + n * 60 + k + r) mod 3600 div 60;
k := ( m * 3600 + n * 60 + k + r) mod 60;
m:=abc(m);
n:=abc(n);
k:=abc(k);
writeln(m, ':', n, ':', k);
READLN;
end.