С клавиатуры вводятся два целых положительных числа. Найти их наименьшее общее кратное.
Pascal ABC
для 8 класса
срочно

Function NOK(A,B:integer):integer;Beginif A>B then result:=A-1else result:=B-1;repeatresult:=result+1until (result mod A =0)and(result mod B = 0);End;VarA,B:integer;BeginWrite('A = ');ReadLn(A);Write('B = ');ReadLn(B);WriteLn(NOK(A,B));End.