ДАЮ 24 БАЛЛА, СРОЧНО
Оформить в виде процедур следующие задачи:

1. swap(a, b)
2. НОД(х, у)
3. максимум из двух чисел
4. минимум из трёх чисел
5. возведение числа а в степень х
6. вычисление n!

Организовать вызов этих процедур в основной программе для введённых значений.