[chainik]

а вот самый примитивный способ решения
те путем простого перебора
от MAX(z1,z2) до (z1*z2)

Код:

function GetMOK(z1,z2:cardinal):cardinal;
begin
Result:=Max(z1,z2);
while (Result mod z1 <>0) or (Result mod Z2 <>0) do
    inc(Result);
end;