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

//алгоритм Евклида
var
a, b: integer;

function NOD (p1, p2: integer):integer;
begin 
  while p1p2 do   
     if p1>p2 then p1:=p1-p2 else p2:=p2-p1;NOD:=p1;
end;

function NOK (p1, p2: integer):integer;
begin
  NOK:=(p1*p2) div NOD(p1, p2);
end;

begin
readln (a, b);
writeln (НОК a, b = , NOK(a, b));
end.