Нахождение НОК

[alexic3]

Если число K>=l то пишет, что попытка деления на нуль, если l>k то никаких ошибок нет. Прошу помочь, в заранее
спасибо.
Только познаю азы )

program nok;
var i,k,j,l,s,max:longint;
begin
writeln ('введите число 1');
readln (k);
writeln ('введите число 2');
readln (l);
s:=k*l;
if k>=l then k:=max else max:=l;
i:=max;
j:=k;
j:=l;

begin
if ((i mod k =0) and (i mod l =0)) then writeln ('nok=',i) else writeln (s);
if k=l then writeln (j);
end;


end.

[evg_m]

if k>=l then k:=max else max:=l;
наверно здесь надо немного не так.
точнее, не наверно, а наверняка.
а поскольку изначально max не задано, то оно будет =0.
значит k:=0
и далее получим (i mod k{=0}) деление на ноль!!!

[alexic3]

так я же написал, что если K>=l то оно и есть макс, или l>=k то l это макс

[alexic3]

если я ошибаюсь, то как написать что max может принимать любые значения

[evg_m]

if k>=l then
максимальный это будет k // КАК это записать кодом? ЧЕМУ будет равен максимальный ?
else
максимальный это будет l // и как это записать кодом ?

[FPaul]

Я дико извиняюсь, но НОК вычисляется иначе.
НОК вычисляют одним из способов
1. Разложение на простые множители - как в школе.
2. Через НОД, т.к. вычисление НОД легко формализуется.
НОК
НОД
Алгоритм Евклида
Бинарный алгоритм вычисления НОД