:найти нод трех чисел. нод(а,в,с)=нод(нод(а,в),с) (выполнить в языке программирования pascal)

//Pascal ABC.NET 3.1 сборка 1219

Var
 a,b,c:integer;

 function nod(a,b:integer):integer;
 begin
  while a*b<>0 do
    if a>b then a:=a mod b else b:=b mod a;
  nod:=a+b;
 end; 
 
begin
 readln(a,b,c);
 writeln(nod(nod(a,b),c));
end.

Пример ввода:
15
25
45
Пример вывода:
5