А в чем проблема? Алгоритм нахождения НОД по Евклиду для двух чисел. Сначала ищешь НОД для двух чисел, потом ищешь НОД для полученного результата и третьего числа. Странные у вас лабы...

написал вроде по Евклиду,но не работает(((

Имеется некоторая совокупность фруктов (яблоки,груши) и ягод (рябина,
арбуз). Для каждого фрукта и ягоды указано название (не более 6
символов) и дополнительно для фрукта указывается его вес и объем
(данные действительного типа), а для ягод-количество ягодинок на
кисти (побеге)-(данные целого типа). Фрукты и ягоды идут в
произвольном порядке. Требуется написать программу, которая
1) Вводит данные о фруктах и ягодах в некоторый типизированный файл
в соответствии с указанными правилами.
2) Создает из этого типизированного файла текстовый файл, содержащий
сведения о фруктах и ягодах (все данные разделяются одним пробелом).
3)Использует модуль для решения следующих задач:
-определение сколько каких фруктов и ягод представлено в файле.
-нахождение фрукта с самым большим удельным весом.
-нахождение среднего количества ягодинок на кисти.
-нахождение кисти рябины с количеством ягодинок ближайшим к среднему.
Программу составить на языке Делфи. Помогите пожалуйста.