Рассказывают ,что черепаха тортилла отдала золотой ключик буратино не так просто ,как рассказывал а. н.толстой , а вынесла три коробочки : красную ,синюю и зелёную . на красной коробочке было написано ,,здесь золотой ключик ", на синей ,,зелёная коробочка пуста ",а зелёной сидит гадюка ". тортила прочла надписи и сказала : действительно ,в одной из коробок лежит золотой ключик ,в другойи-гадюка ,а третья пуста ,но все надписи не верны где лежит золотой ключик ? .

Если все надписи неверны, то надпись на синей коробочке тоже неверна, т.е. зеленая коробочка не пуста: в ней или ключик, или гадюка. на самой зеленой коробочке есть надпись "здесь сидит гадюка" и эта надпись также неверна, поэтому в зеленой коробочке может быть только золотой ключик. ответ: в зеленой коробочке.

program xxx;

  var a, b, s, i : integer;

begin

  write('введите а-');

  readln (a);

  write('введите b-');

  readln (b);

  s: =0;   for i: = a to b do        s: =s + i * sqr(i);

    writeln ('сумма кубов =', s)

end.

program xxx;

    var i, n : integer;

                a, d : real

                      s: array[1..20] of real;

begin

    write('введите n-');

    readln (n);

    write('введите а=');

    readln(a);

    write('введите d=');

    readln(d);

    s[1]: =a;

    for i: =2 to n do

        s[i]: =a+d;

    write('арифметическая прогрессия: ');  

    for i: =1 to n do

              write(s[i]);

end.