---

1.Напишите программу вычисления наименьшего общего крат­ного следующих четырёх чисел: 36, 54, 18 и 15. Используйте процедуру вычисления наибольшего общего делителя двух чи­сел.

2. Напишите программу перестановки значений переменных а, b, c в порядке возрастания, т. е. так, чтобы а < b < с. Используй­те процедуру swap.

procedure   swap   (var   x,   у:   integer) ;

   var  m:   integer;

begin

   m:=x;

   x:=y;

    y:=m;

end.      

Исходные данные вводятся с клавиатуры.

Пример входных данных	Пример выходных данных
12   3	12   3
2   13	12   3
3   12	12   3
2   3   1	12   3

3.Видоизмените программу сортировки массива выбором так,
чтобы в ней использовалась процедура выбора наибольшего
элемента массива.

4.Напишите программу вычисления выражения:

s = 1! + 2! + 3! +...+ n!

Здесь   n!   —   факториал  числа  п.   n! =   1 • 2 • ... • (n-1) • п. Используйте функцию вычисления факториала.

5.Напишите программу вычисления выражения:

s = х³ + x⁵ + х^п, где х и n вводятся с клавиатуры. Используйте подпрограмму вычисления степени.

6.Напишите функцию, вычисляющую длину отрезка по коорди­натам его концов. С помощью этой функции напишите про­
грамму, вычисляющую периметр треугольника по координа­там его вершин.

7.Напишите функцию, вычисляющую площадь треугольника по целочисленным координатам его вершин. С помощью этой функции вычислите площадь четырёхугольника по координа­там его вершин.