Задача A. Охотники В племени болотных троллей Муа есть n охотников. На охоту должен пойти
хотя бы один охотник. И хотя бы один охотник должен остаться с племенем —
охранять его от случайных зверей. Сколько выбрать, кто пойдёт на
охоту, а кто останется с племенем?
Формат входных данных
В первой строке записано целое число n — количество охотников в племени
Муа (1 6 n 6 12).
Формат выходных данных
В первой строке выведите одно целое число — количество выбрать,
кто пойдёт на охоту, а кто останется с племенем.
Примеры
стандартный ввод стандартный вывод
2 2
3 6
Пояснения к примерам
В первом примере два тролля — пусть это Том и Берт. На охоту может пойти
Том, а может — Берт. Второй тролль при этом останется с племенем.
Во втором примере три тролля — пусть это Том, Берт и Вильям. Есть шесть
вариантов того, кто пойдёт на охоту: Том; Берт; Вильям; Том и Берт; Том и
Вильям; Берт и Вильям.
Подскажите как написать программу в Паскале (или напишите ее если не сложно)

ну, без понятия на каком языке писать - не решаема.

однако, на "метаязыке":

задать массив матрица[5,5];

получить ввод в ввод;

если ввод = 's', то {

сумма = 0;

x = 1;

продолжать, пока x < = 5  {

сумма =  сумма +  матрица[x,x];

x = x + 1;

}

вывести  сумма;

} иначе, если  ввод равен 'a' или 'b' или 'c', то {

x = 1;

продолжать, пока x < = 5  {

среднарифм = 0;

y = 1;

продолжать, пока y < = 5  {

среднарифм  =  среднарифм  +  матрица[x,y];

y  = y + 1;

}

вывести  среднарифм / 5;

x = x + 1;

}

}  иначе, если  ввод = 'm', то {

минимум =  матрица[1,1];

максимум =  матрица[1,1];

x = 1;

продолжать, пока x < = 5  {

y = 1;

продолжать, пока y < = 5  {

если  матрица[x,y]  <   минимум   то  минимум =  матрица[x,y];

если  матрица[x,y]  >   максимум    то  максимум =  матрица[x,y];

y  = y + 1;

}

}

вывести  минимум;

вывести  максимум;

}

1.способ.перепровляются 2 мальчика потом 1 мальчик возврощается и забирает 1 взрослого и переплывает с ним потом 1 мальчик возвращается и забирает второго взрослого.                                                                                                                   2.способ.сначало переправляются 1 мальчик и 1 взрослый потом этот мальчик переправляется и забирает второго взрослого а потом возвращается за вторым мальчиком и переправляется назад вместе с ним.

сочинение о мини ноутбуках,                                                   : однажди родители подарили мне нетбук я так радовался(лас,) я кажды день сидел за ним и он мне ноавился. но однажды я пролил на него воду я думал всё   больше не будет у меня нетбука ,я растроился. мама сказала какой ты не уклюжий и так далее 

var

  a,b: longint;

begin

  readln(a,b);

  while a> 0 do

  begin

    if a mod 10=b then

  begin

    writeln('est');

    halt;

  end;

  a: =a div 10;

end;

writeln('net');

end.