Турбо паскаль, программа для нахождения НОД трех чисел, помогите

[Иринки]

помогите пожалуйста нужно написать в турбо паскале по теореме Евклида

Нужно по теореме Евклида решить в паскале

составьте программу нахождения наибольшего общего делителя трех чисел используя формулу:НОД(А,В,С)=НОД(НОД(А,В),С)


прошу помогите*

[testtest]

function nod(a,b:integer):integer;
begin
  if a * b = 0 then
    nod := a + b
  else
    nod := nod(a mod b, b mod a);
end;

begin
  writeln(nod(nod(12, 1204), 16);
end.