Составить программу вычисления значений концентрации газа в капсуле с 1 по 20 секунду ( с шагом 1 секунда). Капсула нагревается и концентрация газа в капсуле с каждой секундой повышается, и изменяется по формуле к=0,4t^2-1,1t+2,2 где к - концентрация газа, t - время. А так же в программе организовать вычисление сколько секунд концентрация газа будет более 55 единиц. Используйте цикл с параметром (Паскаль)

1)  var  a: array[0..100] of integer;   i, s, n: integer; begin  writeln('введите количество элементов в массиве: '); readln(n);       for i : = 1 to n do    begin    a[i] : = random(10);     write(a[i], ' ');     s : = s * a[i];   end;       writeln;   writeln(s); end.2)  var  a: array[0..100] of integer;   i, s, n: integer; begin    writeln('введите количество элементов в массиве: '); readln(n);       for i : = 1 to n do    begin    a[i] : = random(10);     write(a[i], ' ');   end;       for i : = 1 to n do    begin    // if (i mod 2=0) then s: =s+a[i]; раскоментируй, если сумму нужно искать среди четных номеров элементов.    // if (a[i] mod 2=0) then s: =s+a[i]; раскоментируй, если сумму нужно искать среди самих четных элементов.  end;       writeln;   writeln(s); end.3)var  a: array[0..100] of integer;   i, s, n, max: integer; begin  writeln('введите количество элементов в массиве: '); readln(n);         for i : = 1 to n do    begin    a[i] : = random(10);     write(a[i], ' ');   end;   s: =0;     for i : = 1 to n do    begin    if (a[i]> s) then s: =a[i];   end;       writeln;   writeln(s); end.4)var  a: array[0..100] of integer;   i, s, n, max: integer; begin  writeln('введите количество элементов в массиве: '); readln(n);       for i : = 1 to n do    begin    a[i] : = random(10);     write(a[i], ' ');   end;   s: =0;   for i : = 1 to n do    begin    if (a[i]> s) and (a[i] mod 3=0) then s: =a[i];   end;       writeln;   writeln(s); end.