Используя подпрограмму-функцию , вычисляющую НОД двух чисел , составьте подпрограмму-функцию для вычисления НОД трех целых чисел . Помогите пожалуйста очень срочно нужно!!!

Спасибо

Пожалуйста

// PascalABC.NET 3.2, сборка 1346 от 25.11.2016// Внимание! Если программа не работает, обновите её версию!function gcd(a,b:integer):integer;begin  while b<>0 do   begin    a:=a mod b;    (a,b):=(b,a);  end;  Result:=aend;function gcd3(a,b,c:integer):=gcd(gcd(a,b),c);begin  Writeln('НОД(138,48,312)=',gcd3(138,48,312))end.ПримерНОД(138,48,312)=6