Какое время будет показывать часы через p часов q минут r секунд?

program chasj;
Uses crt;
var m, n, k, p, q, r, u, i, o: integer;
begin
clrscr;
readln(m);
readln(n);
readln(k);
readln(p);
readln(q);
readln(r);
u:=m+p;
i:=n+q;
o:=k+r;
clrscr;
writeln('Nachalnoe vremya');
writeln(m, ' : ', n, ' : ', k);
writeln('vremy pribavlenia');
writeln(p, ' : ', q , ' : ', r);
writeln('konechnoe vremya');
writeln(u, ' : ', i, ' : ',o);
readkey;
end.

program chasj;
Uses crt;
function Conv(x:byte):string;{функция преобразования чисел в строку(маска вывода)}
var s,t:string;
begin
str(x,t);{преобразуем число в строку}
if x=0 then s:='00'{если это ноль}
else if (x>0)and(x<=9) then s:='0'+t{если однозначное число}
else s:=t;{двухзначное число}
Conv:=s;
end;
var ch1,mn1,sc1:byte;{начальное время}
    chd,mnd,scd:byte;{добавленное время}
    chr,mnr,scr:byte;{результат}
    mn,ch:byte;{добавление 1 к минутам и часам, если секунд или минут >60}
begin
clrscr;
writeln('Vvedite nachalnoe vremya:');
write('  Chasy=');readln(ch1);
write('  Minuty=');readln(mn1);
write('  Secundy=');readln(sc1);
writeln('Vvedite pribavlennoe vremya:');
write('  Chasy=');readln(chd);
write('  Minuty=');readln(mnd);
write('  Secundy=');readln(scd);
scr:=(sc1+scd) mod 60;
mn:=(sc1+scd)div 60;
mnr:=(mn1+mnd+mn) mod 60;
ch:=(mn1+mnd+mn) div 60;
chr:=(ch1+chd+ch) mod 24;
clrscr;
writeln('Nachalnoe vremya');
writeln(Conv(ch1),':',Conv(mn1),':',Conv(sc1));
writeln('vremy pribavlenia');
writeln(Conv(chd),':',Conv(mnd),':',Conv(scd));
writeln('konechnoe vremya');
writeln(Conv(chr),':',Conv(mnr),':',Conv(scr));
readkey;
end.