НОД . Рекурсивный алгоритм Евклида - Turbo Pascal

Формулировка задачи:

1. Даны два натуральных числа X и Y. Найти их наибольший общий делитель, используя рекурсивный алгоритм Эвклида. Вход: В текстовом файле INPUT.TXT записаны числа X и Y (1 <= X, Y <= 2,000,000,000). Выход: В текстовый файл OUTPUT.TXT записать наибольший общий делитель чисел X и Y. Пример входа: 785625672 652672514 Пример выхода: 26 есть вот это

var a,b:longint;
    f1,f2:Text;
 
function NOD(x,y:longint):longint; 
begin
   if x<>0 then NOD:=NOD(y mod x,x) else NOD:=y;
end;

begin 
     Assign(f1,'input.txt');
  Reset(f1);
  Assign(f2,'output.txt');
  Rewrite(f2);
   while not seekeof(f1) do begin
    readln(f1,a,b);
    writeln(f2, NOD(a,b) );
    readln;  end; close(f1); close(f2);
end.

это вообще верно?) и как сюда всунуть условие со значениями переменных х и у? помогите пожалуйста

Решение задачи: «НОД . Рекурсивный алгоритм Евклида»

Листинг программы

var a, b, answer: longint;
  inf, outf: text;
 
function gcd(m, n: longint): longint;
    var modulo: longint;
    begin
        modulo := m mod n;
        if modulo = 0 then
            gcd := n
        else
            gcd := gcd (n, modulo)
    end;
 
begin
    assign(inf, 'input.txt'); reset(inf);
    assign(outf, 'output.txt'); rewrite(outf);
    readln(inf, a, b);
 
    answer := gcd(a, b);
    writeln(outf, answer);
 
    close(inf);
    close(outf);
    readln
end.

Объяснение кода листинга программы

В данном коде реализована функция рекурсивного алгоритма Евклида для нахождения наибольшего общего делителя двух целых чисел. Переменные:

a, b, answer: longint;
inf, outf: text; Функция gcd(m, n: longint): longint;
var modulo: longint;
begin
modulo := m mod n;
if modulo = 0 then
gcd := n
else
gcd := gcd (n, modulo)
end; Начальная часть кода открывает файлы input.txt и output.txt для чтения и записи соответственно. Затем считываются два числа из файла input.txt с помощью функции readln. Далее вызывается функция gcd, которая принимает два аргумента: m и n - два считанных числа, и возвращает наибольший общий делитель этих чисел. Внутри функции происходит проверка остатка от деления m на n (модус), и если модус равен нулю, то gcd присваивается значение n, иначе gcd присваивается результат вызова функции gcd для n и модуса. После вызова функции gcd, найденное значение наибольшего общего делителя записывается в файл output.txt с помощью функции writeln. В конце кода вызывается функция readln для чтения последнего введенного пользователем символа и закрываются файлы input.txt и output.txt.