Program NOD;
Var
a,b,s1,s2,c:Longint;
Procedure delenie(a,b:Longint; Var s1,s2:Longint);
Begin
Repeat
if (a>b) then
a:=a mod b;
if (a<b) then
b:=b mod a;
s1:=a;
s2:=b;
Until (s1=0) or (s2=0);
end;
Begin
Writeln('Vvedite TRI NATURALNIX chisla');
Readln(a,b,c);
Delenie(a,b,s1,s2);
Delenie(s1,c,s1,s2);
IF (s1<>0) then writeln('NAIBOLSHII OBSHII DELITEL RAVEN = ',s1);
IF (s2<>0) then writeln('NAIBOLSHII OBSHII DELITEL RAVEN = ',s2);
Readln;
end.