Заполнить таблицу по информатике. какую формулу надо ввести в e2?

Program program1; var name: string; var cost: real; begin         write('введите название товара: ');         readln(name);         write('введите цену товара: ');         readln(cost);         writeln('ваши расходы на покупки равны', cost, ' руб.'); end. ============================= program program2; var a, b, c, sum: integer; var average: real; begin         writeln('введите три числа: ');         readln(a, b, c);         average : = (a + b + c) / 3;         writeln('их среднее равно ', average);         sum : = a + b + c;         writeln('их сумма равна ', sum); end.

Var   i, n: integer;   s: byte;   arr: system.collections.generic.list< integer> : = new system.collections.generic.list< integer> ();     begin   write('enter a number of values: ');   readln(n);   for i : = 0 to (n - 1) do   begin     arr.add(random(-50, 50));     write(string.format('[{0}] => {1}; ', i, arr[i]));     if ((arr[i] < 0) and (arr[i] mod 2 = 0)) then       s += 1;   end;   writeln(system.environment.newline, '> ', s); end.