Составить метод нахождения НОД 3-х естественных чисел, используя вспомогательный алгоритм нахождения

Program zz1;
Var a,b,c:integer; // задаем переменные целого типа
Function Nod(a,b:integer):integer; //вспомогательный метод
Begin
While alt;gt;b do // организуем цикл, пока начальные два числа не одинаковы меж собой
if agt;b // проверяем условие, если первое число больше второго
then a:=a-b // то, от первого отнимаем второе
else b:=b-a; // по другому, от второго отнимаем первое
Nod:=a; // в связи с тем, что по окончании цикла два числа сравняются, ответом является хоть какое из них
End;
begin
write( Введите три числа ); // вводим с клавиатуры три заданных числа
readln(a,b,c);
writeln( НОД 3-х начальных чисел = ,Nod(Nod(a,b),c));
end.