даны натуральные числа x и y. вычислите их НОК.задача для паскаля!помогите пожалуйста срочно надо

var x,y,nod,nok:longint;

begin

read(x,y);

a:=x; b:=y;

while (a>0) and (b>0) do

if a>b then a:=a mod b

else b:=b mod a;

nod:=a+b;

nok:=(x div nod)*y;

write(nok);

end;