Pascal. Вводится 2 натуральных числа. Вывести их НОК.
Помогите пожалуйста!

vara, b, nok: integer;beginreadln (a, b);nok:=(a*b);while a<>b dobeginif a>b then a:=a-b else b:=b-a;end;nok:=nok div a;write (nok);end.