1. Составить программу для вычисления функции:f(x){ 9, 1/x²+1
если x>=-3 если x<-3

Program n; var a, b, i: integer; begin b: = 0; for i: =1 to 4 do   begin   readln(a);   if a > b then   b: =a;   end; writeln('наибольшее: ' + b); end. как это работает? объявляются три целочисленные (interger) переменные: a - вводимое число b - самое большое число i - счётчик цикла после запуска программы переменной b присваивается значение 0 (чтобы было с чем сравнивать при первом значении) запускается цикл for с счётчиком i каждый раз цикл просит ввести пользователя число (а) дальше проверяется условие, если введённое число a больше числа, которое записано как самое большое (if a> b) если ведённое число больше, чем самое большое, то переменной b присваивается значение a и так пока цикл не закончится затем выводится переменная b, в которой хранится самое большое из введённых чисел.