Информатика,9 класс.35

нод и нок двух чисел связаны отношением: нод(х,у)*нок(х,у)=х*у

PascalABC.NET

begin

 var x := ReadInteger('x=');

 var y := ReadInteger('y=');

 var a := x;

 var b := y;

 while b <>0 do

 begin

   a := a mod b;

   Swap(a,b)

 end;

 var NOD := a;

 var NOK := x * y div NOD;

 Print('НОД =', NOD, '   НОК =', NOK)

end.