Написать программу в Паскаль. Написать программу, находящую наибольший общий делитель трех натуральных чисел a, b, c.

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