^Google that shit. Когато си търсиш алгоритми, търси ги на английски. Математическите ги има с кофите в нета. Само трябва да знаеш как се казва нещото, което търсиш. НОД = GCD (Greatest common devisor). НОК, ако трябва да търсиш, ще ти е LCM (Least common multiple), макар че той е просто a.b/GCD(a,b):

function gcd(a, b:integer):integer;
var
t:integer;
begin
while b <> 0 do
begin
t := b;
b := a mod b;
a := t;
end;
gcd := a;
end;