Написать программу, используя рекурсивную функцию, которая находит сумму ряда 1, 3,
5..n*2-1. Найдите максимальный объем памяти стека, необходимый для выполнения
рекурсивной функции, если

2^i = 64

i = 6 бит приходится на 1 символ

3 * 40 * 60 * 6 = 43200 бит

43200 : 8 = 5400 байт

  v=331+0,6*(-35)=310 м/c

v=331+0,6*30=349 м/c

наливаем  воду в сосуд для 5 и переливаем в сосуд из 3-х литров в сосуде их 5-ти остаёться 2,переливаем в ведро,повторяем тоже самое ещё образом получаем 4 литра))

var a: array[1..20] of integer; s,i: integer; begin

s : = 0; for i : = 1 to 20 do begin a[i] : = random(40)-20; if a[i] > 0 thens : = s+a[i]; write(a[i]: 4); end; writeln; writeln(s); end.