Привести дроби к общему знаменателю. - Pascal

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

Здравствуйте, помогите пожалуйста составить прогу\процедуру, которая приводила бы n число совершенно рандомных дробей к наименьшему из возможных общему знаменателю.

Решение задачи: «Привести дроби к общему знаменателю.»

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

int Nok(int* Znamenateli,int KolichestvoZnamenatelei){
 int max = Znamenateli[0];
 for(int i=0;i<kolichestvoznamenatelei;i++){ if="" (max<znamenateli[i])="" max="Znamenateli[i];" }="" int="" nok="max;" mnojitel="1;" bool="" noknaiden="true;" while(1){="" nok*="mnojitel;" for(int="" i="0;i<KolichestvoZnamenatelei;i++){" if((nok%znamenateli[i])!="0)" if(noknaiden)="" return="" nok;="" mnojitel++;="" }<="" code=""></kolichestvoznamenatelei;i++){>

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

Входные данные:
- Znamenateli - массив дробей, которые нужно привести к общему знаменателю
- KolichestvoZnamenatelei - количество дробей в массиве Znamenateli
- max - переменная для хранения максимального знаменателя
- nok - переменная для хранения результата (общего знаменателя)
- mnojitel - переменная для хранения множителя
- noknaiden - флаг для проверки, было ли найдено кратное
Инициализация:
- max устанавливается равным первому значению в массиве Znamenateli
- nok устанавливается равным max
- mnojitel устанавливается равным 1
- noknaiden устанавливается равным true
Основной цикл:
- Перебираем все значения в массиве Znamenateli
- Если max меньше текущего значения в массиве, то обновляем max
- Если nok делится на текущее значение в массиве без остатка и noknaiden равно true, то возвращаем nok и увеличиваем mnojitel на 1
Дополнительный цикл:
- Перебираем все значения в массиве Znamenateli
- Если nok делится на текущее значение в массиве без остатка, то обновляем noknaiden на false
Выходные данные:
- Возвращаем nok как результат работы функции