Uses crt; function Conv (x: byte): string; {функция преобразования чисел в строку (маска вывода) }var s,t: string; beginstr (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}beginclrscr; 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.
