Не могу понять часть кода. Паскаль.

Question

program kb; 
var i,n,m:integer; 
begin 
readln (n,m); 
n:=abs(n); 
m:=abs(m); 
if n>m then begin 
 Inc (n,m); 
 m:=n-m; 
 Dec (n,m) 
end; 
write ('1,-1'); 
For i:=2 to n div 2 do 
 if ((n mod i)=0)and((m mod i)=0) then write (',',i,',',-i); 
if (m mod n)=0 then write (',',n,',',-n); 
End. 
 
Вот собственно код. Какую функцию несет вот эта часть? 
if n>m then begin 
 Inc (n,m); 
 m:=n-m; 
 Dec (n,m)

Виталий Скибин спасибо за объяснение, но мне непонятно назначение этого куска, а не перевод кода на русский язык.

Олег Репецкий · Accepted Answer

Если n больше m 
 Тогда: 
 Прибавить к n число m; 
 Переменной m присвоить значение n-m; 
 Вычесть из числа n число m ;

Ангелинка Ягодка · Answer

Пишите на почту или в асю 586178755 объясню

Евгений Донец · Answer

Напоминает обмен значений переменных без третьей.

Юлия Зарицкая · Answer

В самом верху всего кода принимаются переменные n и m. При этом отбрасывается знак минус 
В отмеченном куске нужно получить разницу между числами n и m. Определяется, какое число больше и от него отнимается другое, 
Вместо этого всего можно было бы 
 
abs(abs(n) - abs(m))