Текстовый алгоритм: 1.Ввести х. 2.Если х <= -10, то у := -х2. 3.Иначе, если x<0, то y := x4+1. 4.Иначе y := x+2. 5.Вывести у. 6.Конец. Листинг программыSub uravnenie()Dim x, y as Doublex = WorkSheets("Лист1").Cells(8,2)if x <= -10 Theny = -x*xElseIf x<0 Theny = x^4+1Elsey = x+2End IfWorkSheets("Лист1").Cells(9,2) = yEnd SubЗадание 3Найти максимум из пяти введенных чиселЗадание:Написать алгоритм и программу.Текстовый алгоритм: 1.Ввести числа a, b, c, d, e. 2.max := 0. 3.Сравнить a, b, c, d и e. Если a >= b и a >= c и a >= d и a >= t, то max := a. 4.Иначе, если b >= c и b >= d и b >= e,то max := b. 5. Иначе, если c >= d и c >= e,то max := c.6. Иначе, если d >= e, то max := d.7. Иначе max := e. Вывести max. Конец. ЛистингпрограммыSub max()Dim a, b, c, d, e, max As Doublea = Worksheets("Лист1").Cells(11, 2)b = Worksheets("Лист1").Cells(11, 4)c = Worksheets("Лист1").Cells(11, 6)d = Worksheets("Лист1").Cells(11, 8)e = Worksheets("Лист1").Cells(11, 10)If a >= b And a >= c And a >= d And a >= e Thenmax = aElseIf b >= c And b >= d And b >= e Thenmax = bElseIf c >= d And c >= e Thenmax = cElseIf d >= e Thenmax = dElsemax = eEnd IfWorksheets("Лист1").Cells(12, 2) = maxEnd Sub0>