Даша и Маша играют в настольную игру. Чтобы сделать очередной ход игроку нужно бросить обыкновенный игральный кубик, который покажет, сколько шагов вперёд можно сделать.

С клавиатуры вводятся результаты броска кубика Маши за последние 15 ходов.

Если 6 выпала больше 1 раза, то выведите на экран "удачная игра".

Если среди этих бросков была только одна 6, то выведите на экран "обычная игра".

Если среди бросков нет 6 совсем, то выведите на экран "неудачная игра".

Формат входных данных
15 чисел в диапозоне от 1 до 6, каждое в отдельной строке

Формат выходных данных
Фраза - ответ.

если 25(из которых 15 сто пудов в школьной и 10 смешанные) берут в школьной, то 10 человек берут в районной.

если 20(из которых 10 сто пудов берут в районной 10 смешанные), то 15 в школьной

получается 1) 10 человек; 2)15 человек; 3)10 чкловек; 4)10 чел; 5)15 чел. 

var a: integer; c1, c2, c3, c4: integer;

begin for a : = 1000 to 9999 do begin c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (c1 < > c2) and (c1 < > c3) and (c1 < > c4) and (c2 < > c3) and (c2 < > c4) and (c3 < > c4) then writeln(a); end; end.

var a: array [1..30] of integer;

i: integer;

begin

  for i : = 1 to 30 do

  begin

        a[i]: = 5+5*0.05*(i-1)+2;

        writeln(a[i]);

  end.

end.

var a: array[1..100] of integer;

begin

  randomize; {чтоб рандом был разный для каждого запуска програмы}

  for i: = 1 to 100 do

      if i mod 2 =0 then a[i] : = 2*random(100)+1; {формула нечетного числа}

      else a[i]: =2*random(100);

end.

есличто непонятно - пиши в сообщения, растолкую