здраствуйте уважаемые эксперты помогите решить задачку на паскале!!
дано число n, написать программу, которыя определяет все пары взаимопростых чисел, вывести эти числа на экран парами, и написать количество пар.взаимопростые числа , это такие числа у которых наибольший общий делитель равен 1.
т.е. если n=4 то это 1:1 1:2 1:3 1:4 2:3 3:4 нужно действовать так:
1. пусть i равно от 1 до n находим наибольший общий делитель для i
и n. выводим те пары чисел, у которых наибольший общий делитель равен 1
2. увеличиваем i на1 т.е. i:=i+1
для нахождения наибольшиего общего делителяиспользуем алгоритм евклида например если даны числа a и b и найти их НОД в паскале
program reo;
var a, b, c : integer;
begin
read (a,b);
c:=b;
b:=a;
a:=c;
repeat
c:=a mod b;
a:=b;
b:=c;
until b=0;
writeln (a);
end.
причем нахождение НОД должно быть описанно в описательной части программы т. е. описанна как function
очччень прошу помогите!!!
заранее спасибо!!!!!!!!!!!