Viết chương trình con tìm ƯCLN của 3 số nguyên Giúp mk vs ạ

Chương trình con:

function UCLN(a,b,c:integer):integer;

begin

       while a<>b do

              if a>b then a:=a-b else b:=b-a;

       while a<>c do

              if a>c then a:=a-c else c:=c-a;

       UCLN:=a;

end;