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