я не могу справиться с домашним заданием, задачу по информатике нужно решить с помощью языка паскаля. Задача такова: "Найти наименьшее общее кратноедвух заданных целых чисел" кто поможет заранее благодарю.
var e,max,min,q,w,r:integer; begin readln(q,w); if q>w then begin min:=w; max:=q; end else begin max:=w; min:=q; end; e:=0; r:=0; while r<>1 do begin e:=e+max; if e/min=e div min then begin writeln('NOK=',e); r:=1; end; end; end.
