Составьте программу нахождения наибольшего общего делителя трех чисел, используя следующую формулу: НОД(А, В, С) = НОД(НОД(А, В), С)



Составьте программу нахождения наибольшего общего делителя трех чисел, используя следующую формулу: НОД(А, В, С) = НОД(НОД(А, В), С).    
Program zad_2_nica;
var A, B, C: integer;
begin
   write ('Введите A: ');
   read (A);
   write ('Введите B: ');
   read (B);
   write ('Введите C: ');
   read (C);
   while (A<>B)
   do begin
      if A>B
      then A:=A-B
      else B:=B-A
   end;
   while (A<>C)
   do begin
      if A>C
      then A:=A-C
      else C:=C-A
   end;
   writeln ('НОД(A,B,C)=', A)
end.