Задание: Найти НОД трех чисел. НОД(а,в,с)=НОД(НОД(а,в),с)

(выполнить в языке программирования Pascal)

//Pascal ABC.NET 3.1 сборка 1219Var 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.Пример ввода:152545Пример вывода:5