Пожалуйста Пожалуйста посчитайте составить программу по вычислению НОК и НОД на Pascal

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

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


Введите два натуральных числа: 13624 320
НОД = 8, НОК = 544960