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

Спасибо

Удачи в других вопросах!

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.