Informatika (2 семестр) / 1 аттестация / NOD

program NOD;
var
a,b,c,r:integer;
function nod(a1,b1:integer):integer;
begin
while (a1*b1)<>0 do
	begin
	 if a1>b1 then
	  a1:= a1 mod b1
	 else
	  b1:= b1 mod a1;
	end;
nod:=a1+b1;
end;
begin
writeln('Введите три числа для определения НОД');
readln(a,b,c);
r:=nod(nod(a,b),c);
writeln('НОД= ',r);
end.