ПОМОГИТЕ ПОЖАЛУЙСТАСоставить программку нахождения меньшего общего кратного, используя

и какой же язык программирования аа

Паскааль

не я выдумывала, так дали

ппц ниразбирус никак как вычислит нок для двух и нод и A это А от 2-ух либо как и так же с B не понятно.

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программка не работает, обновите версию!

function GCD_LCM(a,b:integer):(integer,integer);
begin
  var (c,d):=(a,b);
  while dgt;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