var a,b:integer;
begin
write ('a=');readln(a);
write ('b=');readln(b);
while (a<>0) and (b<>0) do
begin
if a>b then a:=a mod b else b:=b mod a;
end;
writeln('NOD=',a+b);
readln
end.
Uses Dos;
Var h,m,s,ss: word;
begin
gettime(h,m,s,ss);
end.
dmFyICAgYSxiOmludGVnZXI7CmJlZ2luCiAKICB3cml0ZSAoJ2E9Jyk7cmVhZGxuKGEpOwogIHdyaXRlICgnYj0nKTtyZWFkbG4oYik7CiAgd2hpbGUgKGE8PjApIGFuZCAoYjw+MCkgZG8KICBiZWdpbgogIGlmIGE+YiB0aGVuIGE6PWEgbW9kIGIgZWxzZSBiOj1iIG1vZCBhOwogCiAgZW5kOwogCiAgd3JpdGVsbignTk9EPScsYStiKTsKICByZWFkbG4KIAplbmQuClVzZXMgRG9zOwpWYXIgaCxtLHMsc3M6IHdvcmQ7CmJlZ2luCiAgICBnZXR0aW1lKGgsbSxzLHNzKTsKZW5kLgo=