Задача 3: Конструктор Сереже на первое сентября подарили магнитный конструктор, состоящий из брусков разной длины, которые могут соединяться концами друг с другом. В подарочном наборе все бруски уложены в порядке неубывания длины, причем бруски могут иметь одинаковую длину — это очень важно для Серёжи, потому что он будет собирать из брусков равносторонние треугольники для своего большого проекта. Для этого проекта Серёже нужно очень много деталей такой формы, и он хочет понять, сколько всего возможно собрать равносторонних треугольников из конструктора для последующего их одновременного использования в проекте. Размеры треугольников могут быть различными, но все они должны быть равносторонними. Определите, какое максимальное количество равносторонних треугольников можно собрать из конструктора (брусок, использованный в одном треугольнике, уже не может быть использован в другом).

Входные данные
В первой строке входных данных дано целое число n — количество брусков (1 ≤ n ≤ 105). В следующих n строках даны длины брусков конструктора — целые числа от 1 до 109 по одному в строке. Числа даны в неубывающем порядке.

Выходные данные
Требуется вывести одно целое число — максимально возможное число равносторонних треугольников.

Система оценки
Решения, правильно работающие при n ≤ 100, будут оцениваться в

program xxx;

    var i, m, p, n : integer;

                t : array[1..31] of real;

begin

  writeln('введите температуру ')

  for i: =1 to 31 do

        readln(t[i]);

  m: =0; p: =0; n: =0;

  for i: =1 to 31 do

      begin

            if t[i]< 0 then m: =m+1;

            if t[i]> 0 then p: =p+1;

            if t[i]=0 then n: =n+1

      end;

  writeln('дней с отрицательной температурой было - ', m);

  writeln('дней с положительной температурой было - ', р);

  writeln('дней с нулевой температурой было - ', n);

  readln

end.

program xxx;

  var i, j, k, min : integer;

              a: array[1..10, 1..20] of integer;

              b: array[1..10] of integer;

begin

    for i: =1 to 10 do

        for j: =1 to 20 do

              readln(a[i,j]);

    for i: =1 to 10 do

      begin

        b[i]: =0;

        for j: =1 to 20 do

            b[i]: =b[i]+a[i,j];

      end;

    min: =b[1]; k: =1;

    for i: =2 to 10 do

        if b[i]< min then begin max: =b[i]; k: =i end;

    writeln('наименьшая сумма элементов =', min);

    writeln('она находится в строке -', k);

    readln

end.

1)m(hcl)=50*0.292=14.6г

2)n(hcl)=m/m=14.6/36.5-=0.4моль

3)n(оксида металла)=0,4/2=0,2

4)m(оксида металла)= 8/0,2=40

5)раз металл двухвалентен, то значит формула - meo, следовательно вычти из молярной массы оксида массу кислорода

м(металла)=40-16=24

следовательно, mgo 

var

  x,y,z: longint;

begin

  readln(x,y,z);

if (x> 100)or(y> 100)or(z> 100) then writeln('false')

else writeln('true');

end.