Алгоритм Евклида. Классический с вычитанием и быстрый с "делением"

Алгоритм Евклида поиска наибольшего общего делителя (НОД) двух чисел. Блок-схема + Pascal