Задание: Найти НОД трех чисел. НОД(а,в,с)=НОД(НОД(а,в),с) (выполнить в языке программирования 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