Задача

[kiat]

Вот есть задача с таким кодом,надо чтобы вместо суммы она вычисляла разность двух углов.
И звучит она так:
написать программу,которая вычисляет разность величин двух углов(выраженных в градусах,минутах и секундах).

Program gr1;
uses crt;
var gr1,gr2,gr,min1,min2,min,sec1,sec2,sec:integer;
begin
clrscr;
write('Vvedite veli4inu pervogo ugla:');
readln(gr1,min1,sec1);
write('Vvedite veli4inu vtorogo ugla:');
readln(gr2,min2,sec2);
sec:=sec1+sec2;
min:=min1+min2+sec div 60;
sec:=sec mod 60;
gr:=gr1+gr2+min div 60;
min:=min mod 60;
write('Suma:',gr,'gradusi',min,'minuti',sec,'secundi');
end.

[enron]

Задача вроде бы не турдная,но как ее решить я не знаю. И никто вроде бы не стремиться помочь.

[MOTOCoder]

Я бы перевел оба угла в секунды, вычел бы один из другого, затем результат разбил бы обратно на части.