Вконце трудного рабочего дня три честных грабителя решили поделить выручку за день. в их распоряжении находятся n одинаковых алмазов. в соответствии с «кодексом грабителей» младшему грабителю должно достаться на один алмаз меньше, чем среднему по возрасту, а среднему — на один алмаз меньше, чем самому старшему. возможен ли такой дележ? в случае положительного ответа найдите соответствующую тройку чисел. допустимо, что грабитель получит 0 алмазов. примеры входные данные 9 выходные данные 2 3 4 входные данные 7 выходные данные -1

begin

  var a : = readinteger('n=');

  println(a mod 3 = 0 ? $'{a/3-1} {a/3} {a/3+1}' : '-1')

end.

пример(1):

6

1 2 3

пример(2):

5

-1  

var

a: integer;

begin

readln(n);

writeln('сумма цифр числа ',a,' равна', a div 100+(a mod 100) div 10 +a mod 10);

end.

var

a: integer;

begin

readln(n);

writeln((a mod 10)*100+((a mod 100) div 10)*10 +a div 100);

end.

program nn;

uses crt;

var a: array [1..20] of real;

t: real;

i,n,min: integer;

begin

    {ввод последовательности, это самостоятельно}

    min : = 1;

    for i : = 1 to 20 do

    begin

          if  a[i] < a[min] then

                min : = i;

    end;

    t : = a[min];

    a[min] : = a[20-n];

    a[20-n] : = t;

end.