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