program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

var
   FirstNum, SecondNum, Min, i: Integer;
   IsCorrect, IsProstoe: Boolean;
begin
   IsCorrect := False;
   IsProstoe := True;
   repeat
      try
         Write('Пожалуйста, введите первое число: ');
         Readln(FirstNum);
         IsCorrect:=True;
      except
         Writeln('Ошибка!Введите числовое значение, используя натуральные числа');
      end;
   until(IsCorrect);
    repeat
      try
         Write('Пожалуйста, введите второе число: ');
         Readln(SecondNum);
         IsCorrect:=True;
      except
         Writeln('Ошибка!Введите числовое значение, используя натуральные числа');
      end;
   until(IsCorrect);
   if FirstNum < SecondNum then
      begin
         Min:=FirstNum;
      end
   else
      begin
         Min:=SecondNum;
      end;
   for i:= 2 to Min do
      begin
         if ((FirstNum mod i = 0) and (SecondNum mod i = 0)) then
            begin
               IsProstoe := False;
            end;
      end;
   if IsProstoe = True then
      begin
         Writeln('Числа ',SecondNum,' и ',FirstNum,' взаимно простые');
      end
   else
      begin
         Writeln('Числа ',SecondNum,' и ',FirstNum,' не взаимно простые');
      end;
   Readln;
end