NWW i NWD

Jak napisać w Delphi program znajdujący najmniejszą wspólną wielokrotność i największy wspólny dzielnik dla dwóch liczb?? Proszę o pomoc!! Nie znalazłem tego w FAQ ani na tym forum.
Proszę o pomoc,moja nauczycielka z maty się ucieszy ;)

http://www.republika.pl/kaj_8_/algorytmy/algorytmy.htm