1. составьте программу в pascal abc. даны три числа. найти сумму двух наибольших из них. 2. составьте программу в pascal abc. для данного вещественного x найти значение следующей функции f, принимающей вещественные значения: f(x)=(2-х)/x2,если x> 0, иначе f(x)=6-х3 3. составьте программу в pascal abc. даны два числа. найти их сумму, разность и произведение.

1. var a, b, c: integer; begin   write('введите через пробел три числа: ');   readln(a, b, c);   if (a > b) then     if (b > c) then       write('сумма двух наибольших чисел: ', a + b)     else       write('сумма двух наибольших чисел: ', a + c)   else     if (c > a) then        write('сумма двух наибольших чисел: ', c + b)     else       write('сумма двух наибольших чисел: ', b + a) end. 2 . var x, f: real; begin   write('введите значение x: ');   readln(x);   if (x > 0) then     f : = (2 - x) / (x * x)   else     f : = 6 - (x * x * x);   writeln('значение функции при данном x: ', f) end. 3 . var a, b: integer;   write('введите через пробел два числа: ');   readln(a, b);   writeln('сумма чисел: ', a + b);   writeln('разность чисел: ', a - b);   writeln('произведение чисел: ', a * b) end.

Sub m2()     cells.clear     dim n as integer, i as integer, min as integer     n = inputbox("n(> 5) = ")     cells(1, 1).value = "n = " + str(n)     redim a(1 to n)     for i = 1 to n         a(i) = inputbox("a(" + str(i) + ")")     next i     cells(2, 1).value = "исходный массив"     range(cells(3, 1), cells(3, = a     min = a(1)     for i = 2 to n         if a(i) < min then min = a(i)     next i     cells(4, 1).value = "min = " + str(min)     cells(5, 1).value = "полученный массив"     for i = n - 4 to n         a(i) = min     next i     range(cells(6, 1), cells(6, = a end sub