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.