СРОЧНО! Напишите функцию,(через процедуру ) которая находит наибольший общий делитель двух натуральных чисел. Пример: Введите два натуральных числа: 7006652 112307574 НОД(7006652,112307574) = 1234.

function gcd(a, b: longint): longint; // Нахождение НОД var   i: longint; begin   while b <> 0 do   begin     a := a mod b;     i := b; b := a; a := i   end;   gcd := a end; var   a, b: longint; begin   Write('Введите два натуральных числа: '); Readln(a, b);   Writeln('НОД(', a, ',', b, ')=', gcd(a, b)) end. Тестовое решение: Введите два натуральных числа: 7006652 112307574 НОД(7006652,112307574)=1234