Составить программу , которая определяет , являются ли два числа взаимно простыми , и выводит на экран сообщение 'да' или 'нет' и используя с цикл параметром (взаимно простые числа - это числа , которые не имеют общих делителей кроме 1 , на пример : 3 и 5)
begin
var a := ReadInteger('a =');
var b := ReadInteger('b =');
while b <> 0 do
begin
a := a mod b;
Swap(a, b)
end;
Print(A = 1 ? 'Да' : 'Нет')
end.