посмотрите пожалуйста....здесь нужна ещё одна рекурсивная функция для нахождения Х и У методом перебор с возвратом...помогите её написать.....плиз
Вот задание:...Для заданных натуральных чисел А и В найти такие целые числа Х и У, что А*Х+В*У=С, где С равно наибольшему общему делителю чисел А и В.

Program LR_2;   Uses Crt;
var A, B : Longint;

Function NOD (Var a, b : longint) : longint;
Begin

if (a = 0) or (b = 0)then
if a = 0 then
nod := b else
nod := a
else
If a >= b then begin
a := a mod b;
nod := nod (a,b);
end
else
Begin
b := b mod a;
nod := nod(a, b);
end;
end;

Begin Clrscr;
Writeln ('Vvedite dva celih shisla');
Readln (a); Readln (b);
Writeln ('C = ', nod(a, b));
readln;
end.