Вбаскетбольную секцию принимаются юноши достигшие 13 лет. составить программу юношей в секцию. результат выдавать (принят, не принят)

•приняты (младшая группа) •илья вишневский 47 •андрей шереметьев 93 •василий шульц 53 •егор золотарев 64 •владимир ефимов 76 •георгий троицкий 25 •владислав сулимов 36 •леонид пономарёв 73 •семён туманов 91 •филипп мухин 49 •роман беляев 16 •марк фролов 84  младшая группа «акулы»    пн ср сб          14: 00-16: 30 средняя группа    «ягуары»  вт чт пт            15: 00-17: 45 старшая группа    «львы»        пн пт вс             15: 00-17: 15 •приняты (младшая группа) •илья вишневский 47 •андрей шереметьев 93 •василий шульц 53 •егор золотарев 64 •владимир ефимов 76 •георгий троицкий 25 •владислав сулимов 36 •леонид пономарёв 73 •семён туманов 91 •филипп мухин 49 •роман беляев 16 •марк фролов 84 •приняты (средняя группа) •святослав поляков 34 •денис никифоров 88 •дмитрий щербаков 17 •сергей жуков 23 •артем игнатьев 98 •никита трофимов 26 •егор карпов 9 •александр назаров 3 •данил воронин 11 •владимир титов 2 •максим абрамов 61 •артур соболев 13приняты (старшая группа)захар  прокофьев  53евгений  шмидт  94павел  фомин 82юрий  гаврилов 42пётр  киселёв 47

program xxx;

    var z,d,k : integer;

begin

  z: =2; d: =7; k: =0;

  while (d> =z) do

    begin

      d: =d-z;

        k: =k+1

      end;

  writeln(d,'    ',k);

  readln

end.