Пожалуйста посчитайте ПОЖАЛУЙСТАСоставить программу нахождения наименьшего общего кратного, используя следующую формулу A*B=НОД(А,В)*НОК(А,В)НОК(А,В)=А*В/НОД(А,В)

function GCD_LCM(a,b:integer):(integer,integer);
begin
  var (c,d):=(a,b);
  while d>0 do (c,d):=(d,c mod d); // с - НОД
  Result:=(c,Trunc(a*b/c))
end;

begin
  var (a,b):=ReadInteger2('Введите два натуральных числа:');
  var (НОД,НОК):=GCD_LCM(a,b);
  Writeln('НОД = ',НОД, ', НОК = ',НОК)
end.


Введите два натуральных числа: 36 64
НОД = 4, НОК = 576