Function NOK(a, b: Longint): Longint;
var
n, m: Longint;
begin
result := 0;
n := a;
m := b;
while (a <> b) do
if (a < b) then
a := a + n
else
b := b + m;
result := a;
end;
Хотите узнать как создать сайт с нуля?