Написать алгоритм и программу для поиска взаимно простых чисел в натуральном ряду чисел.
Var I,J,N : Integer;
Function NOD(X,Y:Integer):Integer;
Begin
If X = 0 Then NOD :=
Y
Else NOD :=
NOD(Y mod X,X);
End;
Begin
WriteLn('Введите
максимальное число ряда '); ReadLn(N);
For I := 2 To N-1 Do Begin
For J := I+1
To N Do Begin
If NOD(I,J) = 1 Then Write(I:3,j:3,'
');
End;
WriteLn;
End;
End.