Ответ:

Объяснение:

var n,cou,x,mn,n1,n2,n3,h,m,s,x1,x2,x3,x4:integer;

begin

write ('Сколько сейчас на часах (Вводи Часы Минуты секунды): ');

readln (h,M,s);

writeln ('Сколько будет на часах во второй раз: ');

readln (n1,n2,n3);

H:=h*3600;

M:=M*60;

s:=H+M+s;

n1:=n1*3600;

n2:=n2*60;

n3:=n3+n2+n1;

x1:=(n3-s);

x2:=x1 div 3600;

x3:=(x1-x2*3600) div 60;

x4:=(x1-x2*3600-x3*60);

writeln ('Пройдет часов: ',x2,' Минут: ', x3,' Секунд: ',x4);  

end.