Создайте программу сокращения дроби M/N, где М, N — натуральные числа - Pascal ABC

Формулировка задачи:

Помогите решить пожалуйста эту задачу в Pascal ABC Создайте программу сокращения дроби M/N, где М, N — натуральные числа

Решение задачи: «Создайте программу сокращения дроби M/N, где М, N — натуральные числа»

Листинг программы

var M,N: cardinal;
 
function SD( var m,d: Cardinal ): boolean;
var
 r: Cardinal;
begin
 r := min(m , d);
 while( (r > 1) AND ( ((m mod r) <> 0) OR ((d mod r) <> 0) ) ) do begin
  r := r - 1;
 end; 
 if ( r <= 1 ) then begin
  SD := false;
 end else begin  
  m := m div r;
  d := d div r;
  SD := true;
 end;
end;
 
begin
  M := 21;
  N := 7;
  
  while( SD( M , N ) ) do ;
  
  writeln( M , '/' , N );
  
end.

Объяснение кода листинга программы

Создаются две переменные M и N типа Cardinal, которые будут представлять дробь.
Определяется функция SD, которая принимает две переменные m и d типа Cardinal. Эта функция возвращает логическое значение true или false в зависимости от того, можно ли представить m как частное от деления на d без остатка.
Внутри функции создается переменная r типа Cardinal, которая будет использоваться для поиска наименьшего общего кратного (НОК) m и d.
Используется цикл while для проверки, пока r больше 1 и остатки от деления m и d на r не равны нулю. В этом случае значение r уменьшается на 1.
Если r равно 1, то функция возвращает false, что означает, что m не может быть представлено как частное от деления на d без остатка.
Если r больше 1, то переменные m и d делятся на r, и функция возвращает true, что означает, что m может быть представлено как частное от деления на d без остатка.
В основной части программы присваиваются значения M и N, и затем выполняется цикл while, пока функция SD(M,N) возвращает true. В конце цикла выводится результат в формате M/N.
Код завершается без использования вложенных списков.