Составьте программу нахождения наибольшего общего делителя трёх чисел,используя следующую формулу: НОД(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.