Вычислить используя функцию нахождения НОД (наибольшего общего делителя) для двух чисел?

[nikitasa]

Вычислить НОД(А,B)+НОД(С,В)+НОД(А,С), используя функцию нахождения НОД (наибольшего общего делителя) для двух чисел. Pascal

[digitalis]

program dvojka;
var a,b,c,z: integer
//
function nod(arg1,arg2:integer): integer;
var x1,x2: integer ;
begin
   x1 := arg1;
   x2 := arg2;
   while (x1<>x2)  do
       if x1 > x2 then x1 := x1 - x2 else x2 := x2 - x1 ;
   nod := x1
end;
//
begin
  ReadLn(a,b,c);
  z := nod (a,b) + nod (a,c) + nod (b,c) ;
   WriteLn (z)
end.

Вроде так. Давненько не брал в руки Плескаль... Надеюсь, это - не а-бе-це ?)
-------------------
Ну и ?
-------------------
Поскольку ТСу это уже до фонаря - продолжим без него.
Подпрограмма nod работает только с положительными целыми. Если хотя бы один отриц. - циклится. Поэтому правильней было бы

   x1 := Abs(arg1);
   x2 := Abs(arg2)

Но и это ещё не всё. Если хотя бы один из аргументов 0 - тоже циклится.
Итоговый окончательный вид:

function nod(arg1,arg2:integer): integer;
var x1,x2: integer ;
begin
   x1 := Abs(arg1) ;
   x2 := Abs(arg2) ;
   if (x1 = 0) or (x2 = 0) then
        begin x1 := 1; x2 := 1 end ;
   while (x1<>x2)  do
       if x1 > x2 then x1 := x1 - x2 else x2 := x2 - x1 ;
   nod := x1
end;