Разработать пользовательскую процедуру вычисления значения выражения 1)Вычислить 7 значений функций
у=0,15x+a/a2+x2
где начальное значение а=0.14х, шаг а=0.22

#include <stdio.h>
#include <stdlib.h>
#include <time.h>

int main(void) {
   
    srand(time(NULL));
    int array[10];
    int i;
   
    /* заполняем массив. "% 100" означает что случайные числа не смогут быть больше 99, если это не нужно то можно оставить просто "array[i] = rand();" */
    for (i = 0; i < 10; i++)
        array[i] = rand() % 100;
   
    /* выводим массив на экран */
    printf("Массив: %d", array[0]);
    for (i = 1; i < 10; i++)
        printf(", %d", array[i]);
    putchar('\n');
   
    long min, max;
    /* ищем минимальный элемент */
    min = array[0];
    for (i = 1; i < 10; i++)
        if (min > array[i])
            min = array[i];
    /* ищем максимальный элемент */
    max = array[0];
    for (i = 1; i < 10; i++)
        if (max < array[i])
            max = array[i];
    /* выводим их сумму */
    printf("Сумма максимального и минимального элементов массива: %ld\n", min + max);
}

Var
   x:real;
   arr2: array [1..4,1..6] of integer;
   arr1: array [1..4] of integer;
begin
      writeln('Введи число для сравнения');
      readln(x);
      for var i:=1 to 4 do 
      begin
            writeln('Вводим строку ',i);
            for var j:=1 to 6 do
            begin
                  writeln('Введи число ', j);
                  readln(arr2[i,j]);
                  if arr2[i,j]>x then arr1[i]:=arr1[i]+1;
            end;
    end;
    writeln('Двумерный массив: ', arr2, ' Количество чисел больше заданного: ', arr1);
end.