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.