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

var   a, b, c:integer; begin   write('a = '); readln(a);   write('b = '); readln(b);   write('c = '); readln(c);   write('НОД(', a, ', ', b, ', ', c, ') = ');   while (a <> 0) and (b <> 0) do     if a >= b then       a := a mod b     else       b := b mod a;   a := a + b;   while (c <> 0) and (a <> 0) do     if a >= c then       a := a mod c     else       c := c mod a;   writeln(a + c); end.