program ideone;
var
  a, b, k : integer;
function nod(a, b : integer): integer;
var
  r : integer;
begin
  repeat
    r := a mod b;
    a := b; 
    b := r;
  until b = 0;
  nod := a; //result
end;
 
begin
  Writeln('Введите два целых числа');
  Readln(a);
  Readln(b);
  k := nod(a, b);
  if k = 1 then 
     writeln('Числа взаимно простые')
  else 
    writeln('Числа не взаимно простые')
end.

cHJvZ3JhbSBpZGVvbmU7CnZhcgogIGEsIGIsIGsgOiBpbnRlZ2VyOwpmdW5jdGlvbiBub2QoYSwgYiA6IGludGVnZXIpOiBpbnRlZ2VyOwp2YXIKICByIDogaW50ZWdlcjsKYmVnaW4KICByZXBlYXQKICAgIHIgOj0gYSBtb2QgYjsKICAgIGEgOj0gYjsgCiAgICBiIDo9IHI7CiAgdW50aWwgYiA9IDA7CiAgbm9kIDo9IGE7IC8vcmVzdWx0CmVuZDsKCmJlZ2luCiAgV3JpdGVsbign0JLQstC10LTQuNGC0LUg0LTQstCwINGG0LXQu9GL0YUg0YfQuNGB0LvQsCcpOwogIFJlYWRsbihhKTsKICBSZWFkbG4oYik7CiAgayA6PSBub2QoYSwgYik7CiAgaWYgayA9IDEgdGhlbiAKICAgICB3cml0ZWxuKCfQp9C40YHQu9CwINCy0LfQsNC40LzQvdC+INC/0YDQvtGB0YLRi9C1JykKICBlbHNlIAogICAgd3JpdGVsbign0KfQuNGB0LvQsCDQvdC1INCy0LfQsNC40LzQvdC+INC/0YDQvtGB0YLRi9C1JykKZW5kLg==

MTQKOA==

14
8