Question

Помогите создать программу для нахождения НОК ABC Pascal

Answer 1

Var
  a,b,c,NOK:integer;
begin
  Read(a,b);
  if a = b then NOK := a
  else begin
    c := a * b;
    repeat
      if a > b then a := a - b else b := b - a;  
    until a = b;
    NOK := c div a
  end;
  Writeln(NOK)
end.