Алгоритм Евклида для нахождения наибольшего общего делителя двух натуральных чисел.
алг evklid()
Дано:	| Два натуральных числа n1 и n2 (вводятся в программе)
Переменные:
Цел n1, n2, imax, imin, rest;
Функции: цел max(цел, цел), цел min(цел, цел);
Надо:	| Найти их наибольший общий делитель (натуральное число)
Начало
|	Вывод "Введите через запятую два натуральных числа:", НС
|	Ввод n1, n2
|	imax := max(n1, n2)
|	imin := min(n1, n2)
|	до нц
|	|	rest := imax % imin
|	|	imax := imin
|	|	imin := rest
|	кц пока rest > 0
|	Вывод НС,"Наибольший общий делитель чисел: ", n1, " и ", n2, " = ", imax
Конец

Примечание:

1.	Знаком «%» обозначена операция нахождения остатка от деления целых чисел (как в языке «Си»);
2.	Алгоритм нахождения наибольшего общего делителя заключается в том, что последовательно ищутся остатки от деления большего числа на меньшее число, затем от деления меньшего числа на получившийся остаток и т.п. Если в результате этого последовательного деления остаток стал нулевым, то наибольший общий делитель будет равен делителю на этой итерации цикла.