На Лосиноостровской олимпиаде по информатике существуют следующие правила распределения дипломов. Пусть общее количество участников олимпиады равно N. Тогда не более 1/12 всех участников (по возрастанию занятых мест от первого к последнему) становятся победителями, участники, не вошедшие в их число, но вошедшие не более чем в 2/5 от числа всех участников, получают диплом призёра. По завершении олимпиады оказалось, что никакие два участника не показали одинакового результата. Известно, что жюри всегда выдаёт «по максимуму» как дипломы победителя, так и дипломы призёра (то есть выдаётся максимальное число дипломов, удовлетворяющее правилам). Лось Валера знает как количество участников N, так и занятое им место ему определить, получит ли он диплом победителя, диплом призёра или же просто уйдёт ни с чем. Формат ввода Первая строка входных данных содержит два целых числа N и P — количество участников (10 ≤ N ≤ 300) и место, которое занял лось Валера (1 ≤ P ≤ N). Формат вывода Выведите 1, если лось Валера получит диплом победителя олимпиады, 2, если получит диплом призёра и 0, если он вообще не получит диплома. Пример 1 Ввод Вывод 230 5 1 Пример 2 Ввод Вывод 10 4 2 Пример 3 Ввод Вывод 101 41 0

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

итог - гласные звуки в письме не использовались.

например провели 5 измирений плотности раствора. пусть 1 первое измирение n1, второе-n2,   3-n3, 4- n4,5- n5. тогда програма будет виглядеть так:

program n1;

uses crt;  

var n1,n2,n3,n4,n5,s: real;

begin

              read(n1,n2,n3,n4,n5);

              s: =(n1+n2+n3+n4+n5)/5;

              write('s=',s);

end.

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

var a,b,c,d,z: integer; beginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); writeln ('хотите ли вы решить еще один пример? 1-да, 0-нет'); read (z); while (z = 1) dobeginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); writeln ('хотите ли вы решить еще один пример? 1-да, 0-нет'); read (z); end; end. 

var

  s: string;

  i: longint;

begin

  readln(s);

for i: =1 to length(s) div 2 do write(s[i]);

end.