Составьте программу нахождения наибольшего общего делителя трёх чисел, используя следующую формулу:

НОД (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.