Задание №1Составить программу решения данной задачи в соответствии с номером своего варианта. Использовать данную функцию или процедуру в качестве фрагмента программы, организовать в программе обращение к ней, указав соответствующие фактические параметры при каждом вызове подпрограммы. Вариант 1.Составить программу вычисления наибольшего общего делителя трёх введённых чисел х, у, z, используя процедуру вычисления наибольшего общего делителя этих чисел.Procedure NOD(a, b:integer; var k:integer); Begin While a<>b do If a>b then a:=a-b else b:=b-a;k:=a; End;Вариант 2. Составить программу, которая определяет, являются ли три введённые числа х, у, z взаимно-простыми. Взаимно-простыми называются числа, наибольший общий делитель которых равен 1. Использовать функцию вычисления наибольшего общего делителя этих чисел.Function NOD(a, b:integer):integer; Begin While a<>b do If a>b then a:=a-b else b:=b-a;NOD:=a; End;Задание №21. Составить программу вычисления значения выражения: , используя функцию для вычисления значения .2. Напишите программу вычисления выражения: , где . Вычисление значений х оформить в виде подпрограммы-функции.Задание №31.Составить программу, которая вычисляет периметр треугольника, если заданы координаты вершин . Вычисление расстояния между двумя точками оформить в виде функции по известной формуле: .2. Составить программу, которая находит наибольшую сторону треугольника, если заданы координаты вершин . Вычисление расстояния между двумя точками оформить в виде функции по известной формуле: .