Найти нод(нод(A,B),C).Алгоритм Евклида.Pascal

Решение нахождения нода для 2-х чисел,а надо для 3)

Program zzz;var  a,b:integer;beginreadln(a,b) ;while a<>b do beginif a>b then a:=a-belse b:=b-a;  end;writeln(a);end.